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ABSTRACT 


The  Commander  in  Chief  Pacific  Fleet  Propulsion  Examining  Board 
(CINCPACFLT  PEB)  is  a  professional  group  of  naval  officers  experienced  in 
engineering  readiness.  This  group  of  naval  officers  conducts  examinations  to  assess 
the  engineering  readiness  of  the  Pacific  Fleet.  There  are  two  classes  of  examinations 
conducted  by  the  PEB.  The  Operational  Propulsion  Plant  Examination  (OPPE) 
assesses  the  engineering  readiness  when  the  ship  is  underway.  The  Light  Off 
Examination  (LOE)  assesses  the  engineering  readiness  after  a  ship’s  propulsion  plant 
has  been  secured,  for  example  overhauls,  in  excess  of  ninety  days.  The  examination 
data  is  tiien  collected  in  the  exam  summary  worksheet  and  entered  into  the  database. 

The  current  database  system  uses  the  dBASE  IV  Plus  database  management 
system  (DBMS)  software  and  is  constructed  as  a  flat  file  system.  Redundant  data, 
inaccuracies,  and  inefficiencies  are  prevalent  throughout  the  current  system.  The 
purpose  of  this  thesis  is  to  design  a  relational  database  (Propulsion  Examining  Board 
Database  System  (PEBDS)),  implement  and  replace  the  cmrent  system,  and  provide 
a  user  fiiendly  graphical  user  interface  (GUI).  The  PEBDS  and  the  GUI  are 
constructed  using  Paradox  for  Windows  Version  4.5  DBMS  software. 
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INITIAL  DISTRIBUTION  LIST 


1.  INTRODUCTION 


A.  BACKGROUND 

The  Commander  in  Chief  Pacific  Fleet  Propulsion  Examining  Board  (CINCPACFLT 
PEB)  was  established  to  ensure  the  engineering  readiness  needs  of  the  Pacific  Fleet.  Its 
specific  mission  is  to  conduct  Operational  Propulsion  Plant  Examinations  (OPPE)  and  Light 
Off  Examinations  (LOE).  These  examinations  serve  as  a  verification  to  CINCPACFLT  as  to 
the  degree  of  engineering  readiness  of  the  Pacific  Fleet.  The  OPPE  is  an  operational 
examination  which  verifies  engineering  readiness  in  six  different  areas.  These  areas  consist 
of  the  following:  Material  Readiness,  Fire  Fighting,  Program  Management,  Training,  Level 
of  Knowledge,  and  Operations.  The  LOE  is  an  examination  which  verifies  engineering 
readiness  when  the  propulsion  plant  has  been  secured,  for  example  overhauls,  for  more  than 
ninety  days.  The  LOE  is  required  before  lighting  off  the  propulsion  plant  and  verifies 
engineering  readiness  in  five  different  areas.  These  areas  consist  of  the  following:  Material 
Readiness,  Fire  Fighting,  Program  Management,  Training,  and  Level  of  Knowledge. 

The  PEB  is  segregated  into  three  sub-organizations:  Gas  Turbine,  Steam,  and  Diesel. 
These  sub-organizations  are  representations  of  the  various  propulsion  types  that  are  currently 
installed  on  Pacific  Fleet  ships.  Within  these  sub-organizations,  teams  are  selected  to  conduct 
the  examinations  and  consist  of  five  examiners.  The  team  examiners  include  a  senior 
examiner,  usually  a  0-5  or  0-6  and  four  junior  examiners,  usually  a  0-3  or  0-4.  Additionally 
a  Project  Officer  (PO)  is  chosen  from  the  junior  examiners.  He  or  she  is  responsible  for  the 
overall  coordination  of  the  examination  and  is  responsible  for  maintaining  the  examination 
summary  worksheet. 

The  examination  summary  worksheet  contains  all  the  vital  data  for  each  examination 
area.  When  the  examinations  are  complete,  the  PO  is  required  to  submit  the  examination 
summary  worksheet  to  the  Database  Administrator  (DBA)  for  entry  into  the  database. 

The  current  database  was  developed  in  house  using  dBASE  IV  Plus  for  DOS 
database  management  system  (DBMS)  software.  This  database,  however,  is  a  flat  file  system 
and  has  resulted  in  numerous  instances  of  redundant  data.  As  a  result,  the  performance  of  the 
database  is  very  poor  and  the  report  and  query  processing  is  very  inefficient  and  inaccurate. 
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The  DBA  requested  a  study  be  generated  regarding  improvements  to  the  current 
database  system.  He  suggested  developing  a  graphical  user  interface  (GUI),  improving 
database  performance,  and  providing  efficient  and  accurate  reports  and  queries.  In  addition, 
the  senior  examiner  responsible  for  statistical  information  on  examinations  suggested 
providing  graphical  presentations  of  queries.  This  thesis  proposes  a  system  designed  to 
accomplish  these  tasks. 

B,  PEB  DATABASE  SYSTEM  (PEBDS) 

The  Propulsion  Examining  Board  Database  System  (PEBDS)  is  designed  to  replace 
the  current  database  system  and  make  retrieval  and  storage  of  information  easier  and 
efficient.  Additionally,  providing  a  user  friendly  GUI  and  graphical  presentations  of  queries 
will  facilitate  decision  making  for  all  levels  of  management.  To  accomplish  this,  the  author 
interviewed  junior  and  senior  PEB  examiners  to  determine  their  requirements. 

The  DBMS  software  that  was  chosen  to  construct  the  PEBDS  is  Paradox  for 
Windows  Version  4.5.  The  PEBDS  is  a  menu  driven  apphcation  and  mimics  a  Windows 
application.  This  ensures  that  users  with  a  background  in  a  Windows  environment  can  easily 
navigate  around  the  PEBDS  without  having  knowledge  of  Paradox  for  Windows. 

C.  CHAPTER  DESCRIPTIONS 

Chapter  n  will  discuss  the  application  development  methodology  used  in  developing 
the  PEBDS.  The  definition,  requirements,  evaluation,  design,  and  implementation  phases  will 
be  discussed.  This  chapter  will  define  the  scope  and  objectives  of  the  apphcation  as  well  as 
how  these  objectives  will  be  accomphshed. 

Chapter  HI  will  discuss  conclusions,  discussions,  and  recommendations. 

i^pendices  A.  through  H.  provides  supporting  and  substantiation  of  requirements, 
data  dictionary,  application  documentation  (ObjectPAL  text),  data  flow  diagrams  (DFD’s), 
and  a  user’s  guide. 
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n.  DATABASE  APPLICATION  DEVELOPMENT 


The  PEBDS  was  developed  using  five  phases.  The  five  phases  are  the  definition, 
requirements,  evaluation,  design,  and  implementation.  These  phases  and  their  requirements 
will  be  discussed  in  this  chapter. 

A.  PHASE  I:  DEFINITION 

The  current  database  system  has  several  problems.  It  is  unable  to  provide  accurate 
and  timely  data,  the  queries  are  static,  and  it  uses  a  flat  file  configuration  which  allows  storing 
redundant  data.  The  current  system  uses  dBASE  FV  Plus  DBMS,  which  is  not  user  fiiendly 
and  users  require  training. 

The  CINCPACFLT  PEB  has  recently  upgraded  to  IBM  compatible  486  PC’s  and  is 
operating  in  a  Windows  environment.  The  users  are  asking  for  a  user  fiiendly  graphical  user 
interface  (GUI)  to  interact  with  the  database. 

The  scope  of  this  study  is  to  build  a  relational  database  system  with  a  GUI,  which  will 
run  in  a  Windows  environment.  In  addition,  support  for  dynamic  queries  and  graphical 
displays  of  query  results  will  be  developed. 

After  the  problem  has  been  defined  and  the  scope  of  the  project  established,  the 
feasibility  of  the  project  must  be  determined.  Areas  to  look  at  in  estabUshing  the  feasibility 
are  cost,  time,  and  schedule  constraints.  The  cost  of  the  project  was  not  considered  relevant 
because  the  hardware  and  software  were  already  available.  The  schedule  was  set  to  begin  in 
April  1995  with  a  system  completion  date  set  for  August  -  September  1995.  The  time  and 
schedule  to  complete  the  project  is  reasonable. 

Benefits  from  implementing  the  PEBDS  are  as  follows: 

•  Easier  system  to  learn  requiring  less  training 

•  Time  savings  for  data  entry  personnel 
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•  Higher  integrity  of  data 

•  Increased  ability  to  conduct  statistical  analysis  of  data 

B.  PHASE  H:  REQUIREMENTS 

There  are  two  major  styles  for  developing  a  database.  Top-down  development 
proceeds  from  the  generic  to  the  specific.  It  begins  with  a  study  of  the  strategic  goals  of  the 
organization,  the  means  by  which  those  goals  can  be  accomplished,  the  information 
requirements  that  must  be  satisfied  to  accomplish  those  goals,  and  the  systems  that  must  exist 
to  provide  that  information.  For  such  a  study,  a  data  model  is  developed  at  a  high  level  of 
abstraction.  [Ref  5:p.  84] 

Bottom-up  development  operates  in  the  reverse  order  of  abstraction.  It  begins  with 
the  need  to  develop  a  specific  system.  The  means  of  selecting  the  first  system  varies  from 
organization  to  organization.  In  some  organizations,  a  steering  committee  picks  the 
application,  in  other  organization,  the  users  may  pick  it  themselves;  and  in  some,  the  loudest 
voice  in  the  executive  rank  wins  out.  [Ref  5;p.  84] 

The  first  decision  was  to  decide  which  database  development  style  to  use.  Bottom-up 
development  was  selected  because  it  produces  quick  results,  is  less  risky,  and  does  not 
contribute  to  the  phenomenon  of  “analysis  paralysis”  as  does  the  Top-down  development 
style.  The  next  step  in  this  phase  is  to  interview  all  possible  users  of  the  system.  The  author 
interviewed  the  DBA  and  the  leading  senior  examiner  in  charge  of  constructing  statistical 
analysis  reports  on  examination  data.  They  both  described  the  functional  requirements  in 
great  detail.  The  initial  interviews  lasted  approximately  four  hours  and  were  beneficial  in 
constructing  the  initial  prototype  of  the  system.  They  specifically  requested  the  following 
reports  and  queries: 

•  CNO  monthly  report 

•  CINCPACFLT  monthly  report 

•  Twelve  Month  OPPE  Cumulative  Trend  query 
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•  Ships  With  Special  Situations  query 

•  Monthly  Summary  of  Activity  query 

•  High  Power  Demonstrations  query 

•  Program  Management  query 

•  Exam  Area  Summary  query 

•  Evolutions  and  Drills  Summary  query 

•  Fire  Fighting  query 

•  Boiler  Flexibility  Checks  query 

•  ECCTT  query 

•  Level  of  Knowledge  query 

The  initial  prototype  was  completed  in  July  1995.  Minor  changes  were  required  and 
no  further  prototypes  were  necessary. 

1.  Data  Requirements 

The  semantic  object  modeling  approach  was  chosen  over  the  conventional  entity- 
relational  approach  to  model  the  PEBDS  data.  Semantic  object  and  entity-relational  modeling 
are  alike  in  that  both  try  to  represent  the  user’s  view  of  the  data.  They  are  also  similar  with 
how  they  describe  attributes,  cardinalities,  and  domains.  In  semantic  object  modeling, 
however,  each  object  in  the  semantic  object  diagram  holds  all  the  details  about  itself  With 
entity-relational  modeling  entities,  one  must  look  at  several  other  entities  to  get  the  “big 
picture.”  This  makes  semantic  object  modeling  objects  more  comprehensible  than  entity- 
relational  modeling  entities.  One  can  see  the  relationships  between  objects  without  having 
to  trace  through  a  network  of  lines  as  one  must  do  for  the  entity-relational  model.  The 
semantic  object  diagram  for  the  PEBDS  is  located  in  Appendix  A. 

Based  on  the  user  interviews  and  prototype  process,  it  was  determined  that  eight 
objects  were  necessary  to  meet  the  requirements  of  the  PEBDS.  The  objects  for  the  PEBDS 
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are  as  follows: 


•  SHIP 

•  EXAM 

•  OPERATIONS 

•  MATERIAL 

•  FIREFIGHTING 

•  PROGRAM  MANAGEMENT 

•  TRAINING 

•  LEVEL  OF  KNOWLEDGE 

The  SHIP  object  is  the  central  object.  SHIP  will  hold  all  the  information  of  all  ships 
in  the  Pacific  Fleet.  This  includes  ship  name,  propulsion  type,  commanding  officer,  executive 
officer,  chief  engineer,  ISIC,  previous  examination  grade,  and  hull  number.  This  will  act  as 
a  lookup  table  for  all  other  tables.  The  data  must  be  entered  first  in  this  table  before  any  other 
data  is  entered  into  the  system.  The  EXAM  object  identifies  examinations  conducted  and 
containing  information  on  the  particular  examination.  This  includes  exam  ending  date, 
adjective  grade,  overall  finding,  ship  name,  next  exam  date,  project  officer,  senior  examiner, 
examination  type,  and  examination  comments.  OPERATIONS  is  a  subtype  of  EXAM 
contains  information  on  the  watch  sections,  evolutions,  drills,  ECCTT,  and  overall  grade. 
MATERIAL  is  a  subtype  of  EXAM  and  contains  information  on  high  power  demonstrations, 
material  self  assessment,  valve  maintenance,  gage  calibrations,  cleanliness,  preservation, 
stowage,  number  of  major  and  minor  discrepancies,  boiler  flexibility,  material  comments, 
number  of  reported  and  uncovered  degradations.  FIREFIGHTING  is  a  subtype  of  EXAM 
and  contains  information  on  the  number  of  major  and  minor  damage  control  and  repair  five 
discrepancies,  repair  five  inventory,  AFFF  grade,  halon  grade,  fire  drill  grade  and  comments, 
DCTT  grade  and  comments  and  overall  grade.  PROGRAM  MANAGEMENT  is  a  subtype 
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of  EXAM  and  contains  information  on  boiler  water/feed  water,  lube  oil  quality  management, 
fuel  oil  quality  management,  diesel  jacket  water  test  and  treatment,  diesel  engine  trend 
analysis,  operating  logs,  legal  records,  bearing  records,  marine  gas  turbine  equipment  service 
records,  tag  out,  electrical  safety,  online  verification,  hearing  conservation,  quality  assurance, 
and  overall  finding  grades  and  comments.  TRAINING  is  a  subtype  of  EXAM  and  contains 
information  on  personal  qualification  standards,  key  personnel,  training  program,  number  of 
satisfactory  gas  turbine  watch  stations,  steam  watch  stations,  and  diesel  watch  stations,  and 
overall  grade  and  comments.  LEVEL  OF  JCNOWLEDGE  is  a  subtype  of  EXAM  and 
contains  information  on  passing  percentage  for  the  written ,  supervisory,  and  damage  control 
examinations. 

The  above  objects  are  displayed  in  the  semantic  object  diagram  in  Appendix  A.  The 
object  and  domain  definitions  are  displayed  in  the  data  dictionary  in  Appendix  B. 

The  collection  of  data  flow  diagrams  is  displayed  in  Appendk  C.  These  diagrams 
describe  the  overall  flow  of  the  information  in  the  system.  Attributes  and  functions  of  the 
PEBDS  are  listed  with  the  process  specifications  in  Appendix  D. 

The  PEBDS  will  have  a  back  up  capability  utilizing  the  Microsoft  backup  application 
installed  with  Windows  3.1.  This  will  be  a  menu  option  on  the  main  menu  for  the  user.  The 
database  files  should  be  backed  up  on  a  weekly  basis  as  a  minimum. 

C.  PHASE  m:  EVALUATION 

Evaluation  of  the  PEBDS  project  was  completed  and  produced  two  system 
constraints.  The  first  constraint  was  the  hardware  the  PEBDS  had  to  run  on.  For  efficient 
operation,  the  minimum  hardware  requirement  is  an  IBM  compatible  486  PC  with  4  MB  of 
memoiy.  This  constraint,  however,  did  not  pose  any  significant  technological  barriers  for 
development  of  the  PEBDS.  The  second  constraint  was  the  DBMS  software.  Since  limited 
monetary  resources  were  available,  the  PEBDS  is  required  to  be  designed  and  operated  with 
Paradox  for  Windows  Version  4.5  DBMS  software  already  installed  on  site.  An  extensive 
review  of  this  DBMS  software  determined  that  it  satisfied  all  and  possible  future  requirements 
of  the  PEBDS. 
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The  user’s  requirements  were  fiirther  reviewed  and  it  was  determined  that  the 
PEBDS  could  be  completed  on  time  and  utilize  the  current  hardware  and  DBMS  software 
available.  No  additional  costs  would  be  necessary  unless  recommendations  for  future 
enhancements  are  desired. 

D.  PHASE  IV:  DESIGN 

The  lo^cal  database  design  is  centered  around  the  primary  object  SHIP.  The  key  of 
the  SHIP  object  is  (ShipName)  and  contains  one-to-many  semantic  object  attribute  links  to 
the  following  objects; 

•  EXAM 

•  OPERATIONS 

•  MATERIAL 

•  FIREnGHTING 

•  PROGRAM  MANAGEMENT 

•  TRAINING 

•  LEVEL  OF  KNOWLEDGE 

The  minimum  cardinality  is  equal  to  zero  and  the  maximum  cardinality  is  equal  to  N. 

The  key  of  the  EXAM  object  is  a  composite  key  composed  of  (ExamEndDate)  and 
the  semantic  object  link  (SHIP).  The  cardinality  of  the  semantic  object  link  is  one-to-one  with 
the  minimum  and  maximum  cardinality  equal  to  one. 

The  following  objects  are  subtypes  of  the  EXAM  object  and  inherit  the  same 
composite  key  and  minimum  and  maximum  cardinalities: 

•  OPERATIONS 

•  MATERIAL 

•  FIRE  nGHTING 
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•  PROGRAM  MANAGEMENT 


•  TRAINING 

•  LEVEL  OF  KNOWLEDGE 

The  above  objects  and  relationships  are  represented  graphically  in  the  Relational 
Diagram,  Appendix  E  and  the  data  definitions  in  Appendix  B. 

The  main  menu,  input  forms,  and  query  forms  are  listed  in  Appendix  F.  The 
ObjectPAL  source  code  for  the  PEBDS  is  listed  in  Appendix  G  and  the  user’s  guide  is  listed 
in  Appendk  H. 

E.  PHASE  V:  IMPLEMENTATION 

The  PEBDS  was  implemented  in  August  1995.  The  PEBDS  was  installed  on  a  IBM 
compatible  486  PC.  The  PEBDS  will  utilize  the  current  software  installed  on  the  PC.  The 
PEBDS  will  use  Paradox  for  Windows  Version  4.5  and  Windows  3.1.  Upgrades  to  both 
software  applications  are  available  but  is  not  within  the  budgetary  considerations  for  fiscal 
year  1996.  If  upgrades  are  procured,  the  PEBDS  will  operate  without  restrictions  on 
Paradox  for  Windows  5.0  and  Windows  95  software  upgrades. 

A  strategy  for  implementation  of  the  PEBDS  was  considered  and  a  pilot  strategy  was 
decided  upon.  The  reason  this  strategy  was  chosen  was  due  in  part  to  the  incompatibilities 
of  the  flat  file  system  with  the  new  relational  PEBDS  .  The  data  in  the  single  table  format  of 
the  current  database  could  not  be  converted  to  the  new  multi  table  relational  PEBDS. 
Therefore,  the  pilot  strategy  will  enable  the  users  to  use  the  PEBDS  for  monthly  summary 
queries  and  inputs  for  the  monthly  reports  to  CINCPACFLT  and  CNO.  Until  the  full 
conversion  is  complete,  the  DBA  will  have  to  maintain  both  systems.  Full  conversion  will 
take  place  in  approximately  six  months  when  enough  records  are  within  the  system  to 
facilitate  the  other  queries  Avithin  the  PEBDS.  The  pilot  strategy  will  enable  the  organization 
to  gradually  implement  the  PEBDS  to  ensure  stabiUty  and  minimize  the  risk  of  data  loss. 

The  input  and  query  screens,  and  reports  were  built  using  Paradox’s  screen  painter. 
Color,  font  size,  and  overall  design  considerations  were  easily  facilitated  with  the  screen 
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painter  and  a  ergonomical  environment  was  created.  Since  Paradox  for  Windows  application 
language  is  object-oriented,  it  was  used  to  provide  links,  correlations  and  relationships 
between  each  object  within  the  PEBDS.  The  custom  source  code  used  to  construct  the 
PEBDS  is  transparent  to  the  user,  but  is  a  major  reason  of  why  the  PEBDS  is  user  friendly. 
All  objects  within  the  PEBDS  have  custom  source  code  embedded  and  the  source  code  is 
listed  in  Appendk  G. 

Training  and  familiarization  with  the  PEBDS  was  held  with  the  DBA.  A  user’ s  guide 
was  provided  to  help  the  DBA  and  any  other  PEB  staff  members  to  easily  navigate  through 
the  PEBDS  and  is  listed  in  Appendix  H.  Since  the  PEBDS  is  a  menu  driven  application  which 
uses  pushbuttons  and  mouse  point  and  click  procedures,  lengthy  training  sessions  were  not 
required.  The  DBA  received  additional  training  in  system  installation,  troubleshooting,  and 
data  backup. 

Testing  of  the  PEBDS  was  done  during  the  implementation  phase  and  throughout  the 
entire  life  cycle  of  the  project.  The  testing  procedures  were  conducted  on  sample  controlled 
data  and  stressed  the  PEBDS  beyond  what  one  would  expect  the  users  of  the  PEBDS  would 
do.  The  data  was  entered  and  all  queries  were  executed  to  see  if  the  expected  results  would 
be  given.  Modifications  to  the  PEBDS  were  done  to  correct  the  minor  inconsistencies  found 
throughout  the  testing  procedure. 

Restructuring  the  PEBDS  to  accommodate  future  enhancements  can  be  accomplished 
with  the  design  feature  of  Paradox  for  Windows.  The  original  ^stem  files  (.db,  .fsl,  .rsl)  were 
provided  to  the  DBA,  on  two  3.5  inch  floppy  disks.  The  design  feature  for  these  system  files 
was  not  disabled  to  allow  access  to  every  object  within  the  PEBDS.  However,  the 
enhancements  to  the  PEBDS  will  require  extensive  knowledge  of  the  application  language 
objectPAL  and  Paradox  for  Windows  and  should  be  attempted  by  only  qualified 
programmers. 
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IV.  CONCLUSIONS 


The  PEBDS  is  currently  installed  and  is  running  in  accordance  with  the  design 
specifications  of  the  users.  It  has  significantly  reduced  the  time  the  DBA  spends  on  data  entry 
and  query  processing  for  the  senior  members  of  the  PEB.  The  monthly  summary  reports  can 
now  be  completed  in  less  than  thirty  minutes,  which  includes  the  printing  of  the  query  reports 
and  graphs.  The  PEBDS  has  increased  the  productivity  of  all  who  use  the  PEBDS  and  the 
generation  of  future  enhancements  is  highly  recommended.  The  users  have  shown  that  they 
are  satisfied  with  the  system  so  far  and  to  date  the  system  has  achieved  the  goals  that  it  was 
intended  to  accomplish. 

The  user’s  requirements  have  been  met,  but  as  with  all  new  systems,  the  users  can 
now  envision  new  requirements  that  would  be  equally  beneficial.  As  the  users  develop  new 
requirements,  the  object? AL  source  code  can  be  changed  or  added  to  better  meet  these  new 
requirements.  Minor  changes  or  additions  to  the  object? AL  source  code  and  maintenance 
of  the  PEBDS  can  be  accomplished  by  the  DBA.  If  these  changes  are  major  however,  they 
may  be  extensive  enough  to  have  a  following  on  effort  by  another  thesis  student. 

Modifications  and  upgrades  to  the  office’s  infirastructure,  hardware  and  software  are 
an  ongoing  issue  for  every  office  environment.  The  PEBDS  is  versatile  and  can  operate  on 
any  software  upgrades  to  Paradox  for  Windows.  If  a  major  change  occurs  with  the 
infrastructure,  the  PEBDS  can  accommodate  this  change  to  the  infirastructure,  but  will 
require  personnel  knowledgeable  with  the  PEBDS,  Paradox  for  Windows,  and  Paradox  for 
Windows  application  language  object? AL. 

Although  the  backup  procedures  installed  with  the  PEBDS  is  sufficient  and  will  satisfy 
all  backup  requirements,  the  time  required  to  backup  on  3.5  inch  floppy  disks  will  increase 
as  more  and  more  records  are  introduced  into  the  database.  The  addition  of  a  backup  tape 
drive  will  fecilitate  the  back  up  procedures  and  provide  easy  and  relatively  less  painful  means 
of  restoring  the  PEBDS  data  in  the  event  of  total  data  loss.  A  tape  backup  will  solve  this 
problem  and  would  only  require  minimal  additional  funds. 
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APPENDIX  A.  Semantic  Object  Diagram 


sitip 

ID  ShipName 
HullNumber 
PropType 
ISIC 

CO_Name 

XO_Name 

CHENG^Name 

I  FireFighting  |p 
I  LevelOfKnowledg^P 
I  Material  |q  ^ 

I  Training  |p ,,, 

I  ProgramManagement  |q  |,j 
I  Operations  |qj,j 
[ExamL^ 


ID  Operation  ID  ^  ^  ^ 
%ofSatEvoL1  stSec 
%ofSatEvoL2ndSec 
%ofSatEvoL3rdSec 
%ofSatDrilL1stSec 
%0fSatDrilL2ndSec 
%ofSatDiilI_3rdSec 
NRofSatWatchSec 
EccttGrade 
EccttComments 
OperationGrade 
OperationComments 
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ID  ExamlD  ^  ^  ^ 
PO_Name 
ExamType 
SeniorExName 
OverallFinding 
AdjectiveGrade 
PreviousExamType 
Comments 
PreviousExamGrade 
NextExamDate 
Cleared 


IP  MatlD  ^  ^  ^ 
ValveMaintGrade 
CSMP^Grade 
GageCalGrade 
MatSelfAssessGrade 
PreservationGrade 
StowageGrade 
CleanlinessGrade 
HighPwrDemoGrade 
HighPwrComments 
10P_Comments 
StandEquipSatisfied? 
TtlNrOfLeveMFlex 
TtlNrOfLevel2Flex 
TtlNrOfLevel3Fiex 
TtlNrOfLeveWFlex 
TtlNrOfLevelSFlex 
TtlNrOfBoilersFlexed 
BoilerFlexComments 
TtlNrOfMajors 
TtlNrOfMinors 
ShipReportDegradations 
PEBJdDegradations 
ShipReportOOC 
PEBJdOOC 
MaterialGrade 
MaterialComments 


1' 

ID  PMJD  J  . . 

ID  FireFightinglD 

LOQM_Gracle 

NrOfDC_Ma]ors 

BWFW_Grade 

NrOfDC_Minors 

FOQM_Grade 

NrOfRepV_Majors 

DJWTT_Grade 

NrOfRepV_Minors 

DETA_Grade 

RepVJnventoryGrade 

OpLogsGrade 

MSFD^Grade 

LegalRecsGrade 

SpaceDC_EquipGrade 

BearingRecsGrade 

DCTT_Grade 

MGTESR_Grade 

DCTT_Comments 

TagoutGrade 

HalonGrade 

ElectSafetyGrade 

AFFF_Grade 

HearingConsGrade 

FireDiill1_Grade 

QA_Grade 

FireDrill2_Grade 

OLV_Grade 

FireDrill3_Grade 

ProgramManageGrade 

FireDiillComments 

ProgramComments 

FireFightingGrade 

FireFightingComments 

ID  TrainingID 

ID  LOKJD  ^ 

PQS_Grade 

%PassWrittenExam 

TrainingGrade 

AvgScoreWritten 

NrOfSatBIrOp 

%PassDC_Exam 

NrOfSatGenOp 

AvgScoreDC 

NrOfSatBTOW/ConsoleOP 

%PassSupExam 

NrOfSatMsgr/EngOp 

AvgScoreSup 

NrOfSatMMOW 

AvgScoreEM_Sup 

NrOfSatENOW 

NrOfSatEDG/SWBD_Op 

NrOfSatEoow 

NrOfSatPACC 

NrOfSatEPCC 

NrOfSatAuxOP 

NrOfSatOilKing 

NrOfSatMEROP 

KeyPersonnelLeaving 

TrainingProgramGrade 

TrainingProgramComments 
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APPENDIX  B.  DATA  DICTIONARY 


%ofSatDrilMstSec  Type:  Simple  Value 
Profile:  Percent 
Contained  in:  Operations 
Caption: 

Description:  The  percentage  of  satisfactory  drills  in 
the  1st  section 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Floating  Point 
Length: 

Format: 

Initial  Value: 


%0fSatDrilL2ndSec  Type:  Simple  Value 
Profile:  Percent 

Contained  In:  Operations  '' 

Caption: 

Description:  The  percentage  of  satisfactory  drills  in 
the  2nd  watch  section 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Floating  Point 
Length: 

Format: 

Initial  Value: 


%oreatDrilL3rdSec  Type:  Simple  Value 
Profile:  Percent 
Contained  in:  Operations 
Caption: 

Description:  The  percentage  of  satisfactory  drills  in 
the  3rd  watchsection 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Floating  Point 
Length: 

Format: 

Initial  Value: 


%ofSatEvoM  stSec  Type:  Simple  Value 

”  Profile:  Percent 

Contained  in:  Operations 
Caption: 

De^ription:  The  percent  of  satifactory  evolutions  In 
the  1st  watchsection 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Floating  Point 
Length: 

Format: 

Initial  Value: 
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%ofSatEvoL3rdSec  Type:  Simple  Value 
Profile:  Percent 
Contained  in:  Operations 
Caption: 

Description:  The  percentage  of  satisfactory  evolutions 
in  the  3rd  section 
ID  Status:  None 
Minimum  Required;  0 
Maximum  Allowed:  1 
Value  Type:  Floating  Point 
Length: 

Format: 
initial  Value: 


%PassDC_Exam  Type:  Simple  Value 

Profile:  Percent 

Contained  in:  LevelOfKnowledge 
Caption: 

Description:  The  percentage  of  engineering  personnel 
passing  the  damage  control  exam 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Floating  Point 
Length:  ' 

Format: 
initial  Value: 


%PassSupExam  Type:  Simple  Value 

Profile:  Percent 

Contained  In:  LevelOfKnowledge 
Caption: 

Description:  The  percentage  of  supervisors  passing  th 
e  supervisory  exam 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Floating  Point 
Length: 

Format: 

Initial  Value: 


%PassWrittenExam  Type:  Simple  Value 
Profile:  Percent 

Contained  in:  LevelOfKnowledge 
Caption: 

Description:  The  percentage  of  watchstanders  passing 
^e  written  exam 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Floating  Point 
Length: 

Format: 

Initial  Value: 


AdjectiveGrade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  Exam 
Caption: 

Description:  The  descriptive  grade  for  the  exam 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format 

initial  Value: 
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AFFF_Grade  Type:  Simple  Value 

Profile:  PrevlousExamGrade 
Contained  in:  RreFighting 
Caption: 

Description:  The  grade  on  the  ship’s  AFFF  system 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format 

Initial  Value: 


AvgScoreDC  Type:  Simple  Value 

Profile:  Quantity 

Contained  in:  LevelOfKnowledge 
Caption: 

De^ription:  The  average  score  on  the  damage  control 
exam 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Short  Integer 
Length: 

Format 
initial  Value: 


AvgScoreEM_Sup  Type:  Simple  Value 

Profile:  Quantity 

Contained  in:  LevelOfKnowledge 
Caption: 

Description:  The  average  score  of  the  EM  supervisory 
exam 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Short  Integer 
Length: 

Format 
Initial  Value: 


AvgScoreSup  Type:  Simple  Value 

Profile:  Quantity 

Contained  in:  LevelOfKnowledge 
Caption: 

Description:  The  average  score  on  the  supervisory  exa 
m 

ID  Status:  None 
Minimum  Required:  0 
Majdmum  Allowed:  1 
Value  Type:  Short  Integer 
Length: 

Format 
In'ttial  Value: 


AvgScoreWritten  Type:  Simple  Value 

Profile:  Quantity 

Contained  in:  LevelOfKnowledge 
Caption: 

Description:  The  average  score  for  the  written  exam 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Short  Integer 

Length: 

Format 
Initial  Value: 
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BearingRecsGrade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  In:  ProgramManagement 
Caption: 

Description:  The  bearing  records  program  grade 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value: 


BoilerFlexComments  Type:  Simple  Value 
Profile:  Description 
Contained  in:  Material 
Caption: 

Description:  The  comments  on  the  boiler  flexes 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed;  1 

Value  Type:  Memo 

Length: 

Format: 

Initial  Value:  ' 


BWFW_Grade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  ProgramManagement 
Caption: 

Description:  The  boiler  water/feed  water  program  grad 
e 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  10 
Format 
initial  Value: 


CHENG_Name  Type:  Simple  Value 

Profile:  PersonName 
Contained  in:  Ship 
Caption: 

Description:  The  chief  engineer's  last  name 

ID  Status:  None 

Minimum  Required:  1 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  35 

Format 

Initial  Value: 


CleanlinessGrade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  Material 
Caption: 

Description:  The  grade  for  cleanliness 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value: 
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Cleared 


Type:  Simple  Value 
Profile:  Cleared 
Contained  in:  Exam 
Caption: 

Description:  This  is  to  check  whether  a  ship's  exam  is 
cleared  from  the  database 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  1 
Format: 

Initial  Value:  Y 


CO_Name  Type:  Simple  Value 

Profile:  PersonName 
Contained  in:  Ship 
Caption: 

Description:  The  commanding  officers  last  name 

ID  Status:  None 

Minimum  Required:  1 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  35 

Format: 

Initial  Value: 


Comments  Type:  Simple  Value 

Profile:  Description 
Contained  in:  Exam 
Caption: 

Description:  The  comments  on  the  exam  overall 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Memo 

Length: 

Format: 

Initial  Value: 


CSMP_Grade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  Material 
Caption: 

Description:  The  grade  for  the  consolidated  ships  main 
tenance  plan 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  10 
Format: 

Initial  Value: 


DCTT_Comments  Type:  Simple  Value 

Profile:  D^ription 
Contained  in:  FireFighting 
Caption: 

Description:  The  damage  control  training  team  comme 
nts 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Memo 
Length: 

Format: 

Initial  Value: 
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DCTT_Grade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  In:  FireFighting 
Caption: 

Description:  The  damage  control  training  team  grade 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value: 


DETA_Grade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  ProgramManagement 
Caption: 

Description:  The  diesel  engine  trend  analysis  program 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value:  ^ 


DJWTT__Grade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  ProgramManagement 
Caption: 

Description:  The  diesel  jacket  water  test  and  treatmen 
t  program  grade 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  10 
Format: 
initial  Value: 


EccttComments  Type:  Simple  Value 

Profile:  Description 
Contained  in:  Operations 
Caption: 

Description:  The  comments  for  the  engineering  casual 
ty  control  training  team 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Memo 
Length: 

Format: 

Initial  Value: 


EccttGrade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  Operations 
Caption: 

IDescription:  The  grade  of  the  engineering  casualty  co 
ntrol  training  team 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  10 
Format: 
initial  Value: 
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ElectSafetyGrade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  ProgramManagement 
Caption: 

Description:  The  electrical  safety  program  grade 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value; 


Exam  Type:  Object  Link 

Profile:  Exam 
Contained  in:  Ship 
Caption: 

Description: 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  N  (No  Limit) 


ExamEndDate  Type:  Simple  Value 

Profile:  ExamEndDate 
Contained  in:  LevelOfKnowledge.LOKJD 
Caption: 

Description:  The  date  the  exam  ends 

ID  Status:  None 

Minimum  Required:  1 

Maximum  Allowed:  1 

Value  Type:  Date 

Length: 

Format: 

Initial  Value: 


ExamEndDate  Type:  Simple  Value 

Profile:  ExamEndDate 
Contained  in:  Training.TrainlnglD 
Caption: 

Description:  The  date  the  exam  ends 

ID  Status:  None 

Minimum  Required:  1 

Maximum  Allowed:  1 

Value  Type:  Date 

Length: 

Format: 

Initial  Value: 


ExamEndDate  Type:  Simple  Value 

Profile:  ExamEndDate 
Contained  in:  Material.MatID 
Caption: 

De^ription:  The  date  the  exam  ends 

ID  Status:  None 

Minimum  Required:  1 

Maximum  Allowed:  1 

Value  Type:  Date 

Length: 

Format: 

Initial  Value: 
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ExamEndDate  Type:  Simple  Value 

Profile;  ExamEndDate 

Contained  in:  ProgramManagementPMJD 

Caption: 

Description:  The  date  the  exam  ends 

ID  Status:  None 

Minimum  Required:  1 

Maximum  Allowed:  1 

Value  Type:  Date 

Length: 

Format: 

Initial  Value: 


ExamEndDate  Type:  Simple  Value 

Profile:  ExamEndDate 
Contained  in:  Exam.ExamlD 
Caption: 

Description:  The  date  the  exam  ends 

ID  Status:  None 

Minimum  Required:  1 

Maximum  Allowed:  1 

Value  Type:  Date 

Length: 

Format: 

Initial  Value:  ' 


ExamEndDate  Type:  Simple  Value 

Profile:  ExamEndEDate 

Contained  in:  Operations.OperationlD 

Caption: 

Description:  The  exam  end  date 

ID  Status:  None 

Minimum  Required:  1 

Maximum  Allowed:  1 

Value  Type:  Date 

Length: 

Format: 

Initial  Value: 


ExamEndDate  Type:  Simple  Value 

Profile:  ExamEndDate 
Contained  in:  FireFighting.FireFightingID 
Caption: 

Description:  The  date  the  exam  ends 

ID  Status:  None 

Minimum  Required:  1 

Maximum  Allowed:  1 

Value  Type:  Date 

Length: 

Format: 

Initial  Value: 


ExamlD  Type:  Group  Attributes  Contained:  Ship 

Profile:  ExamlD  ExamEndDate 

Contained  in:  Exam 

Caption: 

Description: 

ID  Status:  Unique 
Minimum  Required:  1 
Maximum  Allowed:  1 
Minimum  Count:  0 
Maximum  Count:  ALL 
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ExamTypo  Type:  Simple  Value 

Profile:  ExamType 
Contained  in:  Exam 
Caption: 

Description:  The  type  of  inspection  with  values  of  OPP 
E/LOE/REOPPE/RELOE 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  10 
Format: 

Initial  Value: 


FireDrill1_Grade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  FireFighting 
Caption: 

Description:  The  grade  on  fire  drill  1 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  10 

Format:  ' 

Initiai  Value: 


FireDriII2_Grade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  FireFighting 
Caption: 

Description:  The  grade  on  fire  drill  2 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value: 


FireDrill3_Grade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  FireFighting 
Caption: 

Description:  The  grade  of  fire  drill  3 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value: 


RreDiillComments  Type:  Simple  Value 

Profile:  De^ription 
Contained  in:  FireFighting 
Caption: 

Description:  The  comments  on  all  3  fire  drills 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Memo 

Length: 

Format: 

Initial  Value: 
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FireFighting  Type:  Object  Link 

Profile:  FireFighting 
Contained  in:  Ship 
Caption: 

Description: 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  N  (No  Limit) 


FireFightingComments  Type:  Simple  Value 
Profile:  Description 
Contained  in:  FireFighting 
Caption: 

Description:  The  fire  fighting  area  comments 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Memo 

Length: 

Format: 
initial  Value: 


FireFightingGrade  Type:  Simple  Value 

Profile:  PreviousExamGrade  ^ 
Contained  in:  FireFighting 
Caption: 

Description:  The  fire  fighting  area  grade 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value: 


FireFightinglD  Type:  Group  Attributes  Contained:  Ship 

Profile:  RreFightingID  ExamEndDate 

Contained  in:  FireRghting 

Caption: 

De^ription: 

ID  Status:  Unique 
Minimum  Required:  1 
Maximum  Allowed:  1 
Minimum  Count:  0 
Maximum  Count  ALL 


FOQM_Grade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  ProgramManagement 
Caption: 

Description:  The  fuel  oil  quality  management  program 
grade 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  10 
Format: 

Initial  Value: 


26 


GageCalGrade  Type:  Simple  Value 

Profile;  PreviousExamGrade 
Contained  in:  Materia! 

Caption: 

De^ription:  The  grade  for  gage  calibrations  program 

ID  Status:  None 

Minimum  Required;  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length;  10 

Format: 

Initial  Value: 


HalonGrade  Type;  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  FireFighting 
Caption: 

Description:  The  grade  of  the  Installed  halon  system 

ID  Status:  None 

Minimum  Required;  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value:  ^ 


HearingConsGrade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  ProgramManagement 
Caption: 

Description:  The  hearing  conservation  program  grade 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format 

initiai  Value: 


HighPwrComments  Type:  Simple  Value 
Profile:  Description 
Contained  in:  Material 
Caption: 

Description:  The  comments  on  the  high  power  demon 
stration 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Memo 
Length: 

Format 
initial  Value: 


HighPwrDemoGrade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  Material 
Caption: 

Description:  The  high  power  demonstration  grade 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format 

Initial  Value: 
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HullNumber  Type:  Simple  Value 

Profile:  HullNumber 
Contained  In:  Ship 
Caption: 

Description: 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  10 
Format: 

Initial  Value: 


IOP_Comments  Type:  Simple  Value 

Profile:  Description 
Contained  in:  Material 
Caption: 

De^ription:  The  comments  for  lOP's 

ID  Status:  None 

Minimum  Required:  1 

Maximum  Allowed:  1 

Value  Type:  Memo 

Length: 

Format: 

Initial  Value; 


ISIC  Type:  Simple  Value 

Profile:  ISIC 
Contained  in:  Ship 
Caption: 

Description:  The  immediate  superior  in  chain  of  comm 
and  of  the  ship 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  10 
Format: 

Initial  Value: 


KeyPersonnelLeaving  Type:  Simple  Value 
Profile:  Description 
Contained  In:  Training 
Caption: 

Description:  The  names  of  the  key  personnel  leaving 
v^ing  three  months  of  the  exam  end  date 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Memo 
Length: 

Format: 

Initial  Value: 


LegalRecsGrade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  ProgramManagement 
Caption: 

Description:  The  legal  records  program  grade 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value: 
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LevelOfKnowledge 


Type:  Object  Link 
Profile:  LevelOfKnowledge 
Contained  in:  Ship 
Caption: 

Description: 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  N  (No  Limit) 


LOKJD 

Type:  Group 

Profile:  LOKJD 

Contained  in:  LevelOfKnowledge 

Caption: 

Description: 

ID  Status:  Unique 

Minimum  Required:  1 

Maximum  Allowed:  1 

Minimum  Count  0 

Maximum  Count  ALL 

Attributes  Contained: 

Ship 

ExamEndDate 

LOQM^Grade 

Type:  Simple  Value 

Profile:  PreviousExamGrade 

Contained  in:  ProgramManagement 

Caption:  > 

Description:  The  lube  oil  quality  management  program 
grade 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  10 
Format: 

Initial  Value: 


Material  Type:  Object  Link 

Profile:  Material 
Contained  in:  Ship 
Caption: 

Description: 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  N  (No  Limit) 


MaterialComments  Type:  Simple  Value 
Profile:  Description 
Contained  in:  Material 
Caption: 

Description:  The  comments  on  the  materia!  area  of  the 
exam 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Memo 
Length: 

Format 
Initial  Value: 


MaterialGrade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  Material 
Caption: 

Description:  The  grade  for  the  material  area  of  the  ex 
am 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  10 
Format 
Initial  Value: 


MatiD 


Attnbutes  Contained: 


Type;  Group 
Profile:  MatID 
Contained  in:  Material 
Caption: 

Description: 

ID  Status;  Unique 
Minimum  Required:  1 
Maximum  Allowed:  1 
Minimum  Count;  0 
Maximum  Count:  ALL 


Ship 

ExamEndDate 


MatSelfAssessGrade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in;  Material 
Caption: 

Description:  The  grade  for  material  self  assessment 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

initial  Value: 


MGTESR_Grade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  ProgramManagement 
Caption: 

Description:  The  marine  gas  turbine  equipment  servic 
e  record  program  grade 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  10 
Format: 
initial  Value: 


MSFD_Grade  Type:  Simple  Value 

""  Profile:  PreviousExamGrade 

Contained  In:  FireFIghting 
Caption: 

Description:  The  main  space  fire  doctrine  grade 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value: 


NextExamDate  Type:  Simple  Value 

Profile:  EventDate 
Contained  in:  Exam 
Caption: 

Description: 

ID  Status:  None 
Minimum  Required:  1 
Maximum  Allowed:  1 
Value  Type:  Date 
Length: 

Format:  The  date  the  next  exam  is  due 
Initial  Value: 
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NrOfDC_Majors  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  FireFighting 
Caption: 

Description:  The  total  number  of  damage  control  major 
s 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Short  Integer 
Length: 

Format: 

Initial  Value: 


NrOfDC_Minors  Type:  Simple  Value 

Profile:  Quantity 
Contained  In:  FireFighting 
Caption: 

Description:  The  number  of  damage  control  fninors 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Short  Integer 

Length: 

Format: 

Initial  Value: 


NrOfRepV_MaJors  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  FireFighting 
Caption: 

De^ription:  The  number  of  repair  five  majors 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Short  Integer 

Length: 

Format: 

Initial  Value: 


NrOfRepV_Mlnors  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  FireFighting 
Caption: 

Description:  The  number  of  repair  five  minors 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Short  Integer 

Length: 

Format 
Initial  Value: 


NrOfSatAuxOP  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  Training 
Caption: 

Description:  The  number  of  satisfactory  auxiliary  oper 
ators 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Short  Integer 
Length: 

Format: 

Initial  Value: 
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NrOfSatBliOp  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  Training 
Caption: 

Description:  Number  of  satisfactory  boiler  operators 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Short  Integer 

Length: 

Format: 

Initial  Value: 


NrOfSatBTOW/ConsoleOPType:  Simple  Value 
Profile:  Quantity 
Contained  In:  Training 
Caption: 

Description:  The  number  of  satisfactory  boiler  technic 
ians/Console  operators 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Short  Integer 
Length: 

Format:  ' 

In’rtial  Value: 


NrOfSatEDG/SWBD_Op  Type:  Simple  Value 
Profile:  Quantity 
Contained  in:  Training 
Caption: 

Description:  The  number  of  satisfactory  emergency  die 
sel/switchboard  operators 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Short  Integer 
Length: 

Format: 
initial  Value: 


NrOfSatENOW  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  Training 
Caption: 

Description:  The  number  of  satisfactory  emergency  die 
sel  generator/switchboard  operators 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Short  Integer 
Length: 

Format: 
initial  Value: 


NrOfSatEoow  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  Training 
Caption: 

De^ription:  The  number  of  satisfactory  engineering  of 
fleers  of  the  watch 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Short  Integer 
Length: 

Format: 

Initial  Value: 
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NrOfSatEPCC  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  Training 
Caption: 

Description:  The  number  of  electrical  plant  control  co 
nsole  operators 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Short  Integer 
Length: 

Format: 

Initial  Value: 


NrOfSatGenOp  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  Training 
Caption: 

Description:  The  number  of  satisfactory  generator  oper 
ators 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Short  Integer 
Length:  ^ 

Format: 

Initial  Value: 


NrOfSatMEROP  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  Training 
Caption: 

Description:  The  number  of  satisfactory  of  main  engine 
room  operators 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Short  Integer 
Length: 

Format: 

Initial  Value: 


NrOfSatMMOW  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  Training 
Caption: 

De^ription:  The  number  of  satisfactory  messengers  of 
^e  watch 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Short  Integer 
Length: 

Format 
Initial  Value: 


NrOfSatMsgr/EngOp  Type:  Simple  Value 
Profile:  Quantity 
Contained  in:  Training 
Caption: 

Description:  The  number  of  satisfactory  messenger/en 
gine  operators 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Short  Integer 
Length: 

Format: 
in'ttial  Value: 
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NrOfSatOilKing  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  Training 
Caption: 

Description:  The  number  of  satisfactory  oil  kings 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Short  Integer 

Length: 

Format: 
initial  Value: 


NrOfSatPACC  Type:  Simple  Value 

Profile:  Quantity 
Contained  In:  Training 
Caption: 

Description:  The  number  of  satisfactory  propulsion  aux 
iliary  control  console  operators 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Short  Integer 
Length: 

Format:  n 

Initiai  Value: 


NRofSatWatchSec  Type:  Simple  Value 

Profile:  Identifier-Numeric 
Contained  in:  Operations 
Caption: 

Description:  Total  number  of  satisfactory  watch  sectio 
ns 

ID  Status:  None 
Minimum  Required:  1 
Maximum  Allowed:  1 
Value  Type:  Long  Integer 
Length: 

Format: 

Initial  Value: 


OLV_Grade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  ProgramManagement 
Caption: 

Description:  The  online  verification  program  grade 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value: 


OperationComments  Type:  Simple  Value 
Profile:  Description 
Contained  in:  Operations 
Caption: 

Description:  The  comments  for  the  operation  area  of  th 
eexam 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Memo 
Length: 

Format: 

Initial  Value: 
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OperationGfade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  In:  Operations 
Caption: 

De^ription:  The  grade  for  operations  area  of  the  exam 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value: 


OperationID 

Type:  Group 

Profile:  OperationID 

Contained  in:  Operations 

Caption: 

Description: 

ID  Status:  Unique 

Minimum  Required:  1 

Maximum  Allowed:  1 

Minimum  Count:  0 

Maximum  Count:  ALL 

Attributes  Contained: 

Ship 

ExamEndDate 

Operations 

Type:  Object  Link 

Profile:  Operations 

Contained  In:  Ship 

Caption: 

Description: 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  N  (No  Limit) 

OpLogsGrade 

Type:  Simple  Value 

Profile:  PreviousExamGrade 

Contained  in:  ProgramManagement 

Caption: 

Description:  The  operation  logs  program  grade 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format 

Initial  Value: 

OverallFInding 

Type:  Simple  Value 

Profile:  PreviousExamGrade 

Contained  in:  Exam 

Caption: 

De^ription:  The  overall  grade  for  the  exam 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value: 
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PEBJdDegradations  Type:  Simple  Value 
Profile:  Quantity 
Contained  In:  Material 
Caption: 

Description:  Total  number  of  equipment  degradations  f 
ound  by  the  propulsion  examining  board 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Short  Integer 
Length: 

Format: 

Initial  Value: 


PEBJdOCX)  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  Material 
Caption: 

Description:  The  number  of  out  of  commission  equipm 
ent  found  by  the  propulsion  examining  board 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Short  Integer 
Length:  ' 

Format: 

Initial  Value: 


PMJD 

Type:  Group 

Attributes  Contained: 

Ship 

Profile:  PMJD 

ExamEndDate 

Contained  In:  ProgramManagement 

Caption: 

Description: 

ID  Status:  Unique 

Minimum  Required:  1 

Maximum  Allowed:  1 

Minimum  Count:  0 

Maximum  Count:  ALL 

PO_Name  Type:  Simple  Value 

Profile:  PO_Name 
Contained  in:  Exam 
Caption: 

Description:  The  name  of  the  project  officer  conductin 
g  the  exam 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  10 
Format: 

Initial  Value: 


PQS_Grade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  In:  Training 
Caption: 

Description:  The  personal  qualifications  standard  grad 
e 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  10 
Format: 
initial  Value: 
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PreservationGrade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  Material 
Caption: 

Description:  The  preservation  of  equipment  grade 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value; 


PreviousExamGrade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  Exam 
Caption: 

Description:  The  grade  of  the  previous  exam 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value: 


PreviousExamType  Type:  Simple  Value 

Profile:  PreviousExamType 
Contained  in:  Exam 
Caption: 

Description:  The  previous  exam  type  the  ship  had 

ID  Status;  None 

Minimum  Required;  0 

Ma)dmum  Allowed:  1 

Value  Type:  Text 

Length:  6 

Format 

initial  Value: 


ProgramComments  Type:  Simple  Value 
Profile:  Description 
Contained  in:  ProgramManagement 
Caption: 

Description:  The  program  management  comments 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Memo 

Length: 

Format 
Initial  Value: 


ProgramManageGrade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  ProgramManagement 
Caption; 

Description:  The  program  managment  grade 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

InItia!  Value: 
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ProgramManagement  Type:  Object  Link 

Profile:  ProgramManagement 
Contained  in:  Ship 
Caption: 

Description: 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  N  (No  Limit) 


PropType  Type:  Simple  Value 

Profile:  PO_Name 
Contained  in:  Ship 
Caption: 

Description:  The  propulsion  type  of  the  ship. 

Values  are  Gas  Turbine,  Diesel,  or  Steam 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  10 
Format: 

Initial  Value: 


QA_Grade  Type:  Simple  Value  ^ 

Profile:  PreviousExamGrade 
Contained  in:  ProgramManagement 
Caption: 

Description:  The  quality  assurance  program  grade 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value: 


RepVJnventoryGrade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  FireFighting 
Caption: 

Description:  The  grade  of  the  repair  five  inventory 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value: 


SeniorExName  Type:  Simple  Value 

Profile:  PO_Name 
Contained  in:  Exam 
Caption: 

Description:  The  name  of  the  senior  member  of  the  PE 
Bteam 

ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  10 
Format: 

Initial  Value: 
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Ship 

Type:  Object  Link 

Profile:  Ship 

Contained  in:  Material.MatlD 

Caption: 

Description: 

ID  Status:  None 

Minimum  Required:  1 

Maximum  Allowed:  1 

Ship 

Type:  Object  Link 

Profile:  Ship 

Contained  in:  Operations.OperationID 

Caption: 

Description: 

ID  Status:  None 

Minimum  Required:  1 

Maximum  Allowed:  1 

Ship 

Type:  Object  Link 

Profile:  Ship 

Contained  in:  ProgramManagement.PMJD 

Caption: 

Description: 

ID  Status:  None  ^ 

Minimum  Required:  1 

Maximum  Allowed:  1 

Ship 

Type:  Object  Link 

Profile:  Ship 

Contained  in:  Exam.ExamID 

Caption: 

Description: 

ID  Status:  None 

Minimum  Required:  1 

Maximum  Allowed:  1 

Ship 

Type:  Object  Link 

Profile:  Ship 

Contained  in:  LevelOfKnowledge.LOKJD 

Caption: 

Description: 

ID  Status:  None 

Minimum  Required:  1 

Maximum  Allowed:  1 

Ship 

Type:  Object  Link 

Profile:  Ship 

Contained  in:  FireFighting.FireFIghtinglD 

Caption: 

Description: 

ID  Status:  None 

Minimum  Required:  1 

Maximum  Allowed:  1 

Ship 

Type:  Object  Link 

Profile:  Ship 

Contained  in:  Training .TralningID 

Caption: 

Description: 

ID  Status:  None 

Minimum  Required:  1 

Maximum  Allowed:  1 
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ShipName  Type:  Simple  Value 

Profile:  ShipName 
Contained  in:  Ship 
Caption: 

Description: 

ID  Status:  Unique 
Minimum  Required:  1 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  10 
Format: 

Initial  Value: 


ShipReportDegradations  Type:  Simple  Value 
Profile:  Quantity 
Contained  In:  Material 
Caption: 

Description:  The  number  of  equipment  degradations  r 
eported  by  the  ship 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Short  Integer 
Length: 

Format:  y 

Initial  Value: 


ShipReportOOC  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  Material 
Caption: 

Description:  The  number  of  out  of  commission  equipm 
ent  reported  by  the  ship 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Short  Integer 
Length: 

Format: 

Initial  Value: 


SpaceDC_EquipGrade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  FireFighting 
Caption: 

Description:  The  grade  on  the  in  space  damage  contro 
I  equipment 
ID  Status:  None 
Minimum  Required:  0 
Maximum  Allowed:  1 
Value  Type:  Text 
Length:  10 
Format: 

Initial  Value: 


StandEquipSatisfied?  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  Material 
Caption: 

Description:  Is  standard  equipment  satisfied 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  1 

Format: 

Initial  Value: 
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StowageGrade 

Type:  Simple  Value 

Profile:  PreviousExamGrade 

Contained  in:  Material 

Caption: 

Description:  The  grade  for  stowage 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value; 

TagoutGrade 

Type:  Simple  Value 

Profile:  PreviousExamGrade 

Contained  in:  ProgramManagement 

Caption: 

Description:  The  tagout  program  grade 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

initial  Value;  n 

Training 

Type:  Object  Link 

Profile:  Training 

Contained  in:  Ship 

Caption: 

Description: 

ID  Status:  None 

Minimum  Required;  0 

Maximum  Allowed:  N  (No  Limit) 

TrainingGrade 

Type:  Simple  Value 

Profile:  PreviousExamGrade 

Contained  in:  Training 

Caption: 

Description:  The  training  program  grade 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value; 

TrainingiD 

Type:  Group 

Profile:  TrainingiD 

Contained  in:  Training 

Caption: 

Description: 

ID  Status:  Unique 

Minimum  Required:  1 

Maximum  Allowed:  1 

Minimum  Count:  0 

Maximum  Count  ALL 

Attributes  Contained: 

Ship 

ExamEndDate 
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TrainingProgramCommentType:  Simple  Value 
s  Profile:  Description 

Contained  in:  Training 
Caption: 

Description:  The  training  program  area  comments 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Memo 

Length: 

Format: 

Initial  Value: 


TrainingProgramGrade  Type:  Simple  Value 

Profile:  PreviousExamGrade 
Contained  in:  Training 
Caption: 

Description:  The  training  program  area  grade 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

Initial  Value:  x 


TtlNrOfBoilersFlexed  Type:  Simple  Value 
Profile:  Quantity 
Contained  in:  Material 
Caption: 

Description:  The  total  number  of  boiler  flexes 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Short  Integer 

Length: 

Format: 

Initial  Value: 


TtINrOfLevell  Rex  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  Material 
Caption: 

Description:  Total  number  of  boiler  flexes  to  level  1 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Short  Integer 

Length: 

Format: 

Initial  Value: 


TtlNrOfLevel2Flex  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  Material 
Caption: 

Description:  The  total  number  of  boiler  flexes  to  level  2 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Short  Integer 

Length: 

Format: 

Initial  Value: 
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TtINrOfLevel3Flex  Type:  Simple  Value 

Profile:  Quantity 
Contained  In:  Materia! 

Caption: 

Description:  The  total  number  of  boiler  flexes  to  level  3 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Short  Integer 

Length: 

Format: 

Initial  Value: 


TtlNrOfLeveMFlex  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  Material 
Caption: 

Description:  The  total  number  of  boiler  flexes  to  level  4 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Short  Integer 

Length: 

Format: 

Initial  Value: 


TtlNrOfLevelSFlex  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  Material 
Caption: 

Description:  The  total  number  of  boiler  flexes  to  level  5 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Short  Integer 

Length: 

Format: 
initial  Value: 


TtlNrOfMajors  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  Material 
Caption: 

Description:  The  total  number  of  majors 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Short  Integer 

Length: 

Format: 

Initial  Value: 


TtINrOfMinors  Type:  Simple  Value 

Profile:  Quantity 
Contained  in:  Material 
Caption: 

De^ription:  the  total  number  of  minors 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Short  Integer 

Length: 

Format: 
initial  Value: 
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ValveMaintGrade 


Type:  Simple  Value 
Profile:  PreviousExamGrade 
Contained  In:  Material 
Caption: 

Description:  The  grade  for  valve  maintenance 

ID  Status:  None 

Minimum  Required:  0 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  10 

Format: 

initial  Value: 


XO_Name  Type:  Simple  Value 

Profile:  PersonName 
Contained  In:  Ship 
Caption: 

Description:  The  executive  officer's  last  name 

ID  Status:  None 

Minimum  Required:  1 

Maximum  Allowed:  1 

Value  Type:  Text 

Length:  35 

Format: 

Initial  Value:  ^ 
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APPENDIX  D.  PROCESS  SPECIFICATIONS 


A.  REPORTS 

1.  Produce  CNO  Monthly  Report  (I.IP) 

BEGIN 

Run  monthly  summary  of  activity  query 
Display  report 
Print  report 

END 

2.  Produce  CINCPACFLT  Monthly  Report  (1.2P) 

BEGIN 

Run  monthly  summary  of  activity  query 

Run  ships  with  special  situations  query 

Run  twelve  month  OPPE  cumulative  trend  query 

Display  report 

Print  report 

END 

B.  QUERIES 

1.  Produce  12  Month  OPPE  Cumulative  Trend  Query  (2.1P) 

BEGIN 

n=l 

FOR  n=l  to  12 

Get  start  date  of  period  from  user 
Get  end  date  of  period  from  user 

Percentage=number  of  satisfactory  exams/total  number  of 
exams 

FROM  start  date  to  end  date 

Get  number  of  satisfactory  exams 
Get  total  number  of  exams 
Display  percentage 

END 

n=n+l 
END  LOOP 

END 

2.  Produce  Ship  With  Special  Situations  Query  (2.2P) 

BEGIN 

Get  start  date  of  period  from  user 
Get  end  date  of  period  from  user 
FROM  start  date  to  end  date 
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Get  overall  finding 
Get  next  exam  date 
Get  exam  comments 
Get  ship  name 
Display  over  all  finding 
Display  next  exam  date 
Display  exam  comments 
Display  ship  name 

END 

END 

3.  Produce  Monthly  Summary  of  Activity  Query  (2.3P) 

BEGIN 

Get  start  date  of  period  from  user 

Get  end  date  of  period  from  user 

FROM  start  date  to  end  date 
Get  ship  name 
Get  overall  finding 
Get  exam  comments 
Get  exam  end  date 
Display  ship  name 
Display  overall  finding 
Display  exam  end  date 
Display  exam  comments 

END 

END 

4.  Produce  High  Power  Demo  Query  (2.4P) 

BEGIN 

Get  start  date  of  period  from  user 

Get  end  date  of  period  from  user 

FROM  start  date  to  end  date 

Get  high  power  demo  grade 
Get  high  power  demo  comments 
Get  ship  name 
Get  propulsion  type 
Display  high  power  demo  grade 
Display  high  power  demo  comments 
Display  ship  name 
Display  propulsion  type 

END 

END 

5.  Produce  Unsat  Program  Query  (2.5P) 

BEGIN 
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Get  start  date  of  period  from  user 
Get  end  date  of  period  from  user 
FROM  start  date  to  end  date 
Get  program  grade 
Get  exam  type 
Get  exam  end  date 
Get  ship  name 
Get  propulsion  type 
Display  program  grade 
Display  exam  type 
Display  exam  end  date 
Display  ship  name 
Display  propulsion  type 

END 

END 

6.  Produce  Pacific  Fleet  OPPE  Summaiy  Query  (2.6P) 
BEGIN 

Get  start  date  of  period  from  user 
Get  end  date  of  period  from  user 
FROM  start  date  to  end  date 
Get  overall  finding 
Get  program  grade 
Get  level  of  knowledge  grade 
Get  material  grade 
Get  operations  grade 
Get  fire  fighting  grade 
Get  ship  name 
Get  propulsion  type 
Display  overall  finding  grade 
Display  program  grade 
Display  level  of  knowledge  grade 
Display  material  grade 
Display  operations  grade 
Display  fire  fighting  grade 
Display  ship  name 
Display  propulsion  type 

END 

END 

7.  Produce  Task  and  Drill  Summary  Query  (2.7P) 
BEGIN 

Get  start  date  of  period 
end  date  of  period 
FROM  start  date  to  end  date 
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Get  number  of  drills 
Get  number  of  tasks 
Get  shipname 
Get  propulsion  type 
Display  number  of  drills 
Display  number  of  tasks 
Display  shipname 
Display  propulsion  type 

END 

END 

8.  Produce  Fire  Fighting  Query  (2.8P) 
BEGIN 

Get  start  date  of  period 

Get  end  date  of  period 

FROM  start  date  to  end  date 
Get  fire  fighting  grade 
Get  fire  fighting  comments 
Get  propulsion  type 
Get  ship  name 
Get  exam  type 
Display  fire  fighting  grade 
Display  fire  fighting  comments 
Display  propulsion  type 
Display  ship  name 
Display  exam  type 

END 

END 

9.  Produce  Boiler  Flex  Query  (2.9P) 

BEGIN 

Get  start  date  of  period 

Get  end  date  of  period 

FROM  start  date  do  end  date 
Get  shipname 
Get  propulsion  type 
Get  flex  levels 
Get  total  flexes 
Get  flex  comments 
Display  shipname 
Display  propulsion  type 
Display  flex  levels 
Display  total  flexes 
Display  flex  comments 

END 
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END 

C.  EXAM 

1.  Get  Exam  Update  (3.1.1P) 

BEGIN 

Get  user  selection 
Process  user  selection 

END 

2.  Add  Exam  (3.1.2P) 

BEGIN 

Get  new  exam  information 
Store  in  Exam  data  store 

END 

3.  Change  Exam  (3.1.3P) 

BEGIN 

Get  desired  exam  information 
Change  exam  information 
Store  in  Exam  data  store 

END 

4.  Delete  Exam  (3.1.4P) 

BEGIN 

Get  desired  exam  information 
Delete  exam  information 

END 

D.  MATERIAL 

1.  Get  Material  Update  (3.2.1P) 

BEGIN 

Get  user  selection 
Process  user  selection 

END 

2.  Add  Material  (3.2.2P) 

BEGIN 

Get  new  material  information 
Store  in  Material  data  store 

END 

3.  Change  Material  (3.2.3P) 

BEGIN 

Get  desired  material  information 
Change  material  information 
Store  in  Material  data  store 

END 
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4.  Delete  Material  (3.2.4P) 

BEGIN 

Get  desired  material  information 
Delete  material  information 

END 

E.  FIRE  FIGHTING 

1.  Get  Fire  Fighting  Update  (3.3.1P) 
BEGIN 

Get  user  selection 
Process  user  selection 

END 

2.  Add  Fire  Fighting  (3.3.2P) 

BEGIN 

Get  new  fire  fighting  information 
Store  in  Fire  Fighting  data  store 

END 

3.  Change  Fire  Fighting  (3.3.3P) 

BEGIN 

Get  desired  fire  fighting  information 
Change  fire  fighting  information 
Store  in  Fire  Fighting  data  store 

END 

4.  Delete  Fire  Fighting  (3.3.4P) 

BEGIN 

Get  desired  material  information 
Delete  material  information 

END 

F.  OPERATIONS 

1.  Get  Operations  Update  (3.4.1P) 

BEGIN 

Get  user  selection 
Process  user  selection 

END 

2.  Add  Operations  (3.4.2P) 

BEGIN 

Get  new  operations  information 
Store  in  Operations  data  store 

END 

3.  Change  Operations  (3.4.3P) 

BEGIN 

Get  desired  operations  information 
Change  operations  information 
Store  in  Operations  data  store 
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END 

4.  Delete  Operations  (3.4.4P) 

BEGIN 

Get  desired  operations  information 
Delete  operations  information 

END 

G.  PROGRAM  MANAGEMENT 

1.  Get  Program  Management  Update  (3.5.1P) 

BEGIN 

Get  user  selection 
Process  user  selection 

END 

2.  Add  Program  Management  (3.5.2P) 

BEGIN 

Get  new  program  management  information 
Store  in  Program  Management  data  store 

END 

3.  Change  Program  Management  (3.5.3P) 

BEGIN 

Get  desired  program  management  information 
Change  program  management  information 
Store  in  Program  Management  data  store 

END 

4.  Delete  Program  Management  (3.5.4P) 

BEGIN 

Get  desired  program  management  information 
Delete  program  management  information 

END 

H.  LEVEL  OF  KNOWLEDGE 

1.  Get  Level  of  Knowledge  Update  (3.6.1P) 

BEGIN 

Get  user  selection 
Process  user  selection 

END 

2.  Add  Level  of  Knowledge  (3.6.2P) 

BEGIN 

Get  new  program  management  information 
Store  in  Program  Management  data  store 

END 

3.  Change  Level  of  Knowledge  (3.6.3P) 

BEGIN 

Get  desired  level  of  knowledge  information 
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Change  level  of  knowledge  information 
Store  in  Level  of  Knowledge  data  store 

END 

4.  Delete  Level  of  Knowledge  (3.6.4P) 

BEGIN 

Get  desired  level  of  knowledge  information 
Delete  level  of  knowledge  information 

END 

I.  TRAINING 

1.  Get  Training  Update  (3.7.1P) 

BEGIN 

Get  user  selection 
Process  user  selection 

END 

2.  Add  Training  (3.7.2P) 

BEGIN 

Get  new  training  information 
Store  in  Training  data  store 

END 

3.  Change  Training  (3.7.3P) 

BEGIN 

Get  desired  training  information 
Change  training  information 
Store  in  Training  data  store 

END 

4.  Delete  Training  (3.7.4P) 

BEGIN 

Get  desired  training  information 
Delete  training  information 

END 

J.  SHIP 

1.  Get  Ship  Update  (3.8.1P) 

BEGIN 

Get  user  selection 
Process  user  selection 

END 

2.  Add  Ship  (3.8.2P) 

BEGIN 

Get  new  ship  information 
Store  in  Ship  data  store 

END 
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3.  Change  Ship  (3.8.3P) 

BEGIN 

Get  desired  ship  information 
Change  ship  information 
Store  in  Ship  data  store 

END 

4.  Delete  Ship  (3.8.4P) 

BEGIN 

Get  desired  ship  information 
Delete  ship  information 

END 
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APPENDIX  E.  RELATIONAL  DIAGRAM 


SEDP 
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APPENDIX  F.  INPUT  AND  QUERY  FORMS 


Figure  [1]  Main  Menu 


Figure  [2]  Ship  Input  Form 
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Figure  [4]  Fire  Fighting  Input  Form 


Figure  [8]  Training  Input  Form 
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Figure  [9]  Level  of  Knowledge  Input  Form 


Figure  [10]  ECCTT  Query 
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Figure  [11]  Boiler  Flex  Query 


Figure  [12]  Fire  Drill  Percentage  Query 


Database  Management  System  -  [High  Po we r  D e mo  Pe rce nt a g e  ) 


Beport  Quit  Help 


— -'Fower' 


Figure  [13]  High  Power  Demo  Percentage  Query 


Figure  [14]  OPPE/LOE  Area  Percentage  Query 


Figure  [16]  Evolution/Drill  Set  Percentage  Query 


Database  Management  System  ~  [Twelve  Month  QPPE  Cumulative  Trend] 


Print  Quit  Help 


NiontEOPPP  Cumulative  Trend 


Figure  [17]  Twelve  Month  OPPE  Cummulative  Trend  Query 


Figure  [18]  OPPE/LOE  Monthly  Summary 
of  Activity  Query 
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Database  Management  System  -  [Ships  with  special  situations] 


Quit  Help 


phli^siWith 


Figure  [19]  Ships  With  Special  Situations  Queiy 
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APPENDIX  G.  OBJECTPAL  SOURCE  CODE 


Object : 
MethodName : 
Source : 


Object : 
MethodName : 
Source : 


MENU 

open 

method  open(var  eventinfo  Event) 
if  eventlnfo-isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

eise 

;  This  code  executes  oniy  for  the  form. 

hideO 

hideSpeedBarO 

endif 

endmethod 


MENU 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
var 

examMenu  Menu 
AddPop  PopUpMenu 
inquiryPoP  PopUpMenu 
endVar 

if  eventinfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 


eise 

:  This  code  executes  only  for  the  form. 


AddPop.addT  ext("&Ship") 

Add  Pop.addT  extf&Exam") 
AddPop.addTextC'&Fire  Fighting") 
AddPop.addTextf&Level  Of  Knowledge") 
AddPop.addT  extC'&Material") 

AddPop.addT  extf&Operations") 
AddPop.addT  extf&Program  Management") 
AddPop.addT  ext("&T  raining") 

InquiryPop.addTextC’&Boiler  Flexes") 
InquiryPop.addT  ext("&ECCTT") 
InquiryPop.addTextC'&Fire  Drills") 
lnquiryPop.addText("&High  Power  Demos") 
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InquiryPop.addTextf&OPPE/LOE  Area  Summary") 
InquiryPop.addTextf&Program  Statistics") 
lnquiryPop.addText("&Monthly  OPPE/LOE  Summary") 
InquiryPop.addTextf  &Evolutions  and  Drills") 
InquiryPop.addTextf&Ships  With  Special  Situations") 
InquiryPop.addTextf&Twelve  Month  OPPE  Cumulative  Trend") 

examMenu.addPopUpC'&Add",  AddPop) 

examMenu.addPopUpC'&Inquiry",  InquiryPop) 

examMenu.addT  extf&Quit") 

examMenu.addTextf&Back  Up") 

maximizeO 

examMenu.showO 

endif 

endmethod 


MENU 

depart 

method  depart(var  eventinfo  MoveEvent) 
var 

form1  form 
endVar 

if  eventInfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 

;exitO 

endif 

endmethod 


MENU 

menuAction 

method  menuAction{var  eventinfo  MenuEvent) 


var 

form1 

form 

form2 

form 

forms 

form 

form4 

form 

forms 

form 

forms 

form 

form? 

form 
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reply  string 
endVar 

if  eventInfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 

Switch 

case  eventInfo.menuChoiceO  ="&Exam": 
form1  .openf  Exam") 
case  eventInfo.menuChoiceO  ="&Ship''; 

formi  .openC'Ship") 

case  eventInfo.menuChoiceO  ="&Fire  Fighting": 
form2.openC'FireFigh") 

case  eventInfo.menuChoiceO  ="&Level  Of  Knowledge": 
formS.openC’LOK") 

case  eventInfo.menuChoiceO  ="&Material": 
form4.openC'Material") 

case  eventInfo.menuChoiceO  ="&Operations": 
formS.openfOperaton") 

case  eventInfo.menuChoiceO  ="&Program  Management": 

forme.openfProgMan") 
case  eventInfo.menuChoiceO  *"&Training": 
formT.openf  Train") 

case  eventInfo.menuChoiceO  ="&Boiler  Flexes": 

formi  .openfBoilFlex") 
case  eventInfo.menuChoiceO  ="&Fire  Drills": 
form2.openC’FireDril") 

case  eventInfo.menuChoiceO  ="&High  Power  Demos": 
form3.open("HighPwr") 

case  eventInfo.menuChoiceO  ="&OPPE/LOE  Area  Summary": 
form4.open("OPPESum") 

case  eventInfo.menuChoiceO  ="&Program  Statistics": 
forms  .openC'ProgStat") 

case  eventInfo.menuChoiceO  ="&Monthly  OPPE/LOE  Summary": 
forme.openC'Summary") 

case  eventInfo.menuChoiceO  ="&Evolutions  and  Drills": 

form7.openCTaskDril") 
case  eventInfo.menuChoiceO  ="&ECCTr': 
forme.openC'ECCTTAVG") 

case  eventInfo.menuChoiceO  ="&Ships  With  Special  Situations": 
formi  .openC'Unsat") 

case  eventInfo.menuChoiceO  *"&Twelve  Month  OPPE  Cumulative  Trend": 

formS.openC'CumTrend”) 
case  eventInfo.menuChoiceO  ="&Quit": 

reply=msgQuestion("Qult","Are  you  sure  you  want  to  leave  the  CINCPACFLT  PEB  Database?") 
If  reply  =  "Yes"  then 
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closeO 

else 

return 

endlf 

case  eventInfo.menuChoiceO  ="&Back  Up": 
executeC'mwbackup") 
endSwitch 
endif 

endmethod 


#Page2 

setFocus 

method  setFocus(var  eventinfo  Event) 
var 

examMenu  Menu 
AddPop  PopUpMenu 
InquiryPoP  PopUpMenu 
endVar 

AddPop.addTextf&Ship") 

AddPop.addT extC'&Exam”) 

AddPop.addTextC'&Fire  Fighting") 

AddPop.addText("&Level  Of  Knowledge") 

AddPop.addT  ext("&Material") 

AddPop.addT ext("&Operations") 

AddPop.addTextC'&Program  Management") 

AddPop.addT  ext("&T  raining") 

InquiryPop.addTextr&Boiler  Flexes") 
InquiryPop.addTextC'&ECCTT") 

InquiryPop.addTextC'&Fire  Drills") 
lnquiryPop.addText("&High  Power  Demos") 
lnquiryPop.addText("&OPPE/LOE  Area  Summary") 
InquiryPop.addTextC'&Program  Statistics") 
InquiryPop.addText^&Monthly  OPPE/LOE  Summary") 
InquiryPop.addTextC'&Evolutions  and  Drills") 
InquiryPop.addTextf&Ships  With  Special  Situations") 
InquiryPop.addTextf&Twelve  Month  OPPE  Cumulative  Trend") 

examMenu  .addPopUpC'&Add",  AddPop) 
examMenu. addPopUpC&Inquiry",  InquiryPop) 
examMenu.addT  ext("&Quit") 
examMenu.addTextC&Back  Up") 

maximizeO 
examMenu  .showO 
endmethod 
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SHIPJNPUT_FORM 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
var 

examMenu  Menu 
ReportPop  PopUpMenu 
AddPoP  PopUpMenu 
endVar 

if  eventlnfojsPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 

AddPop.addT  extC'&Locate") 

AddPop.addT  extf&Delete") 

examMenu.addPopUpC&Record”,  AddPop) 

examMenu.addTextf&Quit") 

examMenu.addT  ext("&Help") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

editO 

action(DatalnsertRecord) 

endif 

endmethod 


SHIPJNPUT_FORM 

menuAction 

method  menuAction(var  eventinfo  MenuEvent) 
var 

myRep  Report 
reply  String 
endVar 

if  eventInfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 


else 

:  This  code  executes  only  for  the  form. 

Switch 

case  eventInfo.menuChoiceO  ="&Locate'': 
action(DataSearch) 

case  eventInfo.menuChoiceO  ="&Delete": 

if  ’Yes"=msgQuestionC'Delete  Record"  "Are  you  sure  you  want  to  delete  "+ShipName+"?")  then 
deleteRecordO 
endif 

case  eventInfo.menuChoiceO  ="&Help": 
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case  eventInfo.menuChoiceO  ="&Quit": 
reply=msgQuestion("Quit",''Are  you  sure  you  want  to  leave  this  form?") 
If  reply  =  "Yes"  then 
closeO 
else 
return 
endlf 

endSwitch 

endif 

endmethod 


#Page2.#Box27.INSERT_NEW_SHIP_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 

action(datalnsertRecord) 

endmethod 


#Page2.#Box27.PropType 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 
choicel  ="GT" 
choice2="DSL" 
choice3=”STM" 
tempValue=self.value 
doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.nev\A/alueO=choice1: 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
othenwise: 

self.value=tempValue 

msgStopC'Problem", "Value  must  be  either  GT,  DSL,  or  STM") 
eventinfo  .setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 
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EXAMJNPUT_FORM 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
var 

examMenu  Menu 
ReportPop  PopUpMenu 
AddPoP  PopUpMenu 
endVar 

if  eventlnfoJsPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form, 
else 

;  This  code  executes  only  for  the  form. 

AddPop.addT  ext("&Locate") 

AddPop.addT  extC'&Delete") 

examMenu.addPopUpC’&Record”,  AddPop) 

examMenu.addTextC'&Quit") 

examMenu.addTextr&Help") 

examMenu-showO 

maximizeO 

hideSpeedBarO 

editO 

action(datalnsertRecord) 

endif 

endmethod 


EXAM_INPUT_FORM 

menuAction 

method  menuAction(var  eventinfo  MenuEvent) 
var 

myRep  Report 
reply  String 
endVar 

if  eventlnfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form . 

Svfltch 

case  eventInfo.menuChoiceO  ="&Locate": 
action(DataSearch) 

case  eventInfo.menuChoiceO  =''&Delete": 
if  "Yes"=msgQuestionC'Delete  Record", "Are  you  sure  you  want  to  delete 
"+ExamlD_Ship_ShipName_FK2+"?")  then 

deleteRecordO 

endif 

case  eventInfo.menuChoiceO  ="&Help": 
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case  eventlnfo.menuChoiceO  =''&Quit"; 
reply=msgQuestion("Quit","Are  you  sure  you  want  to  leave  this  form?") 
If  reply  =  "Yes"  then 
closeO 
else 
return 
endlf 
endSwitch 
endif 

endmethod 


#Page2.#Box40.Cleared 

arrive 

method  arrive(var  eventinfo  MoveEvent) 

if  seIf.isBIankO  then 

switch 

case  overaiiFinding="UNS": 
self.value="N" 
case  overaiiFinding="DEC": 
self.value="N" 
case  overailFinding="INC": 
self.value="N" 
otherwise: 
self.value='T' 
endSwitch 
endlf 

endmethod 


#Page2.#Box40.AdjectiveGrade 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempVaiue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choicel  =”EXC" 

choice2="GOOD" 

choice3="SAT" 

choice4="SAT(C)" 

choice5="UNS” 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventinfo.newValueO=choice1 : 
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case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem", "Value  must  be  either  EXC,  GOOD,  SAT  ,  SAT(C),  UNS") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box40.OverallFinding 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
TC  TCursor 
endVar 

choicel ="SAT" 

choice2="UNS" 

choice3="DEC" 

choice4="INC" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
caseeventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
otherwise: 

self.value=tempValue 

msgStopC'Problem", 'Value  must  be  either  UNS,  SAT,  DEC  or  INC") 
eventinfo  .setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box40.ExamType 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
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choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choice!  ="OPPE" 
choice2=''REOPPE" 
choice3="LOE" 
choice4="RELOE" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
otherwise: 

self.value=tempValue 

msgStop("Problem", "Value  must  be  either  OPPE,  REOPPE,  LOE,  or  RELOE") 
eventlnfo.setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box40.ExamlD_ExamEndDate 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  AnyType 
endVar 

tempValue=Self.value 

doDefault 

if  eventinfo. errorCodeO=0  then 
if  eventInfo.newValueO  >  todayO  then 
Self.value=tempValue 

msgStopC'Problem","ExamEndDate  cannot  be  a  future  date!") 
eventlnfo.setErrorCode(-1 ) 
endlf 
endlf 

endmethod 


#Page2.#Box39.INSERT_NEW_EXAM_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 

action(datalnsertRecord) 

endmethod 
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#Page2.#Box39.HullNumber 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
disableDefault 

moveTo("ExamlD_ExamEndDate") 

endmethod 


#Page2.#Box39.PropType 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choice3  String 
choice4  String 
choices  String 
endVar 
choicel  ="GT" 
choice2="DSL" 
choice3="STM" 
tempValue=self.value 
doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3; 
othen/vise; 

self.value=tempValue 

msgStopC'Problem", "Value  must  be  either  GT,  DSL,  or  STM") 
eventi  nfo.setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box39.ExamlD_Ship_ShipName_FK2 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
doDefault 

if  eventInfo.errorCodeO  =  0  then 
;input  accepted  by  Paradox 
else 

msgStopC'Problem",  "The  ship  you  entered  is  not  valid.  You  must  enter  the  ship  first!") 
endlf 

endmethod 
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FIREFIGHTINGJNPUT_FORM 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
var 

examMenu  Menu 
ReportPop  PopUpMenu 
AddPoP  PopUpMenu 
endVar 

if  eventInfo.isPreFilterO 
then 

:  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 

AddPop.addT  ext("&Locate") 

AddPop.addText("&Delete") 

examMenu.addPopUpC'&Record",  AddPop) 

examMenu.addT  ext("&Quit”) 

examMenu.addTextC’&Help") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

editO 

action(DatalnsertRecord) 

endif 

endmethod 


FIREFIGHTINGJNPUT_FORM 

menuAction 

method  menuAction(var  eventinfo  MenuEvent) 
var 

myRep  Report 
reply  String 
endVar 

if  eventInfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 

Switch 

case  eventInfo.menuChoiceO  ="&Locate'': 
action(DataSearch) 

case  eventInfo.menuChoiceO  ="&Delete": 
if  "Yes"=msgQuestionC'Delete  Record”, "Are  you  sure  you  want  to  delete 
"+FireFig_Ship_ShipName_FK5+"?")  then 
deleteRecordO 
endif 

case  eventInfo.menuChoiceO  ="&Help": 
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case  eventlnfo.menuChoiceO  ="&Quit": 
reply=msgQuestionC'Quit'',"Are  you  sure  you  want  to  leave  this  form?") 
If  reply  =  "Yes"  then 
closeO 

else 

return 

endif 

endSwitch 

endif 

endmethod 


#Page2.#Box83.FireFightingGrade 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice?  String 
choices  String 
choice4  String 
choices  String 
endVar 

choicel  ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC” 

temp\/alue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newVaiueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newA/alueO=choice3: 
case  eventlnfo.newA/alueO=choice4: 
case  eventlnfo.newValueO=choice5: 
othenwise: 

self.value=tempValue 

msgStopC'Problem", "Value  must  be  either  SAT,  LINS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endif 

endmethod 


#Page2.#Box81  .FireDrilI3_Grade 
changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
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var 

tempValue  anyType 
choice  1  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choice!  ="SAr' 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
caseeventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopCProblem", "Value  must  be  either  SAT,  UNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box81  .FireDrill2_Grade 
changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choice!  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choice!  ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choiceS="EXC" 

tempValue=self.value 

doDefault 
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if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem", ’Value  must  be  either  SAT,  UNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box81  .FireDrill1_Grade 
changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choice!  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choice!  ="SAT" 

choice2="UNS" 

choice3=”NA" 

choice4="GOOD" 

choice5="EXC" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice! : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
caseeventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem",’Value  must  be  either  SAT,  UNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-! ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box82.DCTT_Grade 
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method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choicel  =''SAr 

choice2="UNS" 

choice3="NA'' 

choice4="GOOD'' 

choice5=”EXC" 


tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.new\/alue0=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4; 
case  eventlnfo.newValueO=choice5; 
otherwise: 

self.value=tempValue 

msgStopC'Problem", 'Value  must  be  either  SAT,  UNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box79.SpaceDC_EquipGrade 

ChangeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choicel  ="SAT" 

choice2="UNS” 

choice3="NA" 

choice4="GOOD'’ 

choiceS="EXC" 
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tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newVaIueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.new\/alue0=choice4: 
case  eventlnfo.newValueO=choice5; 
otherwise: 

self.value=tempValue 

msgStopC'Probiem", "Value  must  be  either  SAT,  DNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box79.AFFF_Grade 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choice  1  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choice1="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC” 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem","Value  must  be  either  SAT,  UNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 
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#Page2.#Box79.HalonGrade 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choice  1  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choice1="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC" 


tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newVaiueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempVaiue 

msgStopfProblem", "Value  must  be  either  SAT,  UNS,  GOOD,  EXC,  or  NA") 
eventinfo.setErrorCode(-1) 
endSwitch 
endif 

endmethod 


#Page2.#Box79.MSFD_Grade 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choicel  ="SAT" 
choice2="UNS" 
choice3="NA" 
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choice4="GOOD" 

choice5="EXC" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.new\/alue0=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.new\/alue0=choice5: 
otherwise: 

self  .val  ue=tempVal  ue 

msgStopC'Problem", 'Value  must  be  either  SAT,  UNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box79.RepV_lnventoryGrade 

changeValue 

method  changeValue(var  eventinfo  VaiueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choicel  ="SAT" 

choice2="UNS’’ 

choice3="NA” 

choice4="GOOD" 

choice5="EXC" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem","Value  must  be  either  SAT,  UNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
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#Page2.#Box79.FireFightingl_ExamEndDate 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  AnyType 
endVar 

tempValue=Self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
if  eventInfo.newValueO  >  todayO  then 
Self.value==tempValue 

msgStop("Problem",''ExamEndDate  cannot  be  a  future  date!") 
eventinfo  .setErrorCode(-1 ) 
endlf 
endlf 

endmethod 


#Page2.#Box78.INSERT_NEW_FF_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 

action(datalnsertRecord) 

endmethod 


#Page2.#Box78.HullNumber 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
disableDefault 

moveTo("FireFightingl_ExamEndDate") 

endmethod 


#Page2.#Box78.FireFig_Ship_ShipName_FK5 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
doDefault 

if  eventInfo.errorCodeO  =  0  then 
;input  accepted  by  Paradox 
0ls@ 

msgStopC'Problem",  "The  ship  you  entered  is  not  valid.  You  must  enter  the  ship  first!") 
endlf 

endmethod 
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LOKJNPUT_FORM 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
var 

examMenu  Menu 
ReportPop  PopUpMenu 
AddPoP  PopUpMenu 
endVar 

if  eventlnfoJsPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 

AddPop.addTextf&Locate") 

AddPop.addT  extC&Delete") 

examMenu.addPopUpC'&Record",  AddPop) 

examMenu.addTextC'&Quit”) 

examMenu.addTextf&Help") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

editO 

action(DatalnsertRecord) 

endif 

endmethod 


LOKJNPUT_FORM 

menuAction 

method  menuAction(var  eventinfo  MenuEvent) 
var 

myRep  Report 
reply  String 
endVar 

if  eventInfo.isPreFilterO 
then 

:  This  code  executes  for  each  object  on  the  form. 


else 

;  This  code  executes  only  for  the  form. 

Switch 

case  eventInfo.menuChoiceO  ='’&Locate": 
action(DataSearch) 

case  eventInfo.menuChoiceO  ="&Delete": 
if  "Yes"=msgQuestion("Delete  Record", "Are  you  sure  you  want  to  delete 
"+LOK_ID_Ship_ShlpName_FK1  +"?")  then 
deleteRecordO 
endif 

case  eventInfo.menuChoiceO  ="&Help": 
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case  eventInfo.menuChoiceO  =''&Quit": 
reply=msgQuestion("Quit","Are  you  sure  you  want  to  leave  this  form?") 
if  reply  =  "Yes"  then 
closeO 
else 
return 
endlf 
endSwitch 
endif 

endmethod 


#Page2.#Box1 3.LOK_ID_ExamEndDate 
changeValue 

method  changeValue(var  eventinfo  VaiueEvent) 
var 

tempValue  AnyType 
endVar 

tempValue=Self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
if  eventInfo.newValueO  >  todayO  then 
Self.value=tempValue 

msgStop("Problem","ExamEndDate  cannot  be  a  future  date!") 
eventlnfo.setErrorCode(-1) 
endlf 
endlf 

endmethod 


#Page2.#Box12.LOK_ID_Ship_ShipName_FK1 

changeValue 

method  changeValue(var  eventinfo  VaiueEvent) 
doDefault 

if  eventInfo.errorCodeO  =  0  then 
;input  accepted  by  Paradox 
else 

msgStopC'Problem",  "The  ship  you  entered  is  not  valid.  You  must  enter  the  ship  first!") 
endlf 

endmethod 


#Page2.#Box12.INSERT_NEW_LOK_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 

action(datalnsertRecord) 

endmethod 


102 


MethodName :  arrive 


Source : 


method  arrive(var  eventinfo  MoveEvent) 
disableDefault 

moveTo("LOKJD_ExamEndDate") 

endmethod 
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MATERIALJNPUT_FORM 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
var 

examMenu  Menu 
ReportPop  PopUpMenu 
AddPoP  PopUpMenu 
endVar 

if  eventInfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form, 
else 

;  This  code  executes  only  for  the  form. 

AddPop.addT  ext("&Locate") 

AddPop.addText("&Delete") 
examMenu.addPopUpC'&Record”,  AddPop) 
examMenu  .addText("&Quit") 
examMenu. addT  extC'&Help") 

examMenu. sho\wO 
maximizeO 
hideSpeedBarO 
editO 

action  (Datal  nsertRecord) 
endif 

endmethod 


MATERIALJNPUT_FORM 

menuAction 

method  menuAction(var  eventinfo  MenuEvent) 
var 

myRep  Report 
reply  String 
endVar 

if  eventInfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 

Switch 

case  eventlnfo.menuChoiceO  =''&Locate": 
action(DataSearch) 

case  eventlnfo.menuChoiceO  *''&Delete”; 
if  "Yes'-msgQuesf  on("Delete  Record", "Are  you  sure  you  want  to  delete 
"+MatlD_Ship_ShipName_FK4+"?")then 
deleteRecordO 
endif 

case  eventlnfo.menuChoiceO  ="&Help"; 
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case  eventInfo.menuChoiceO  ="&Quit": 
reply=msgQuestionC'Quit'','’Are  you  sure  you  want  to  leave  this  form?") 
if  reply  =  "Yes"  then 
closeO 
else 
return 
endlf 

endSwitch 

endif 

endmethod 


#Page2.#Box1 09.MaterialGrade 
changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicet  String 
choice?  String 
choices  String 
choice4  String 
choices  String 
endVar 

choicet  ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC" 

tempVaiue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.new\/alue0=choice2: 
caseeventlnfo.newValueO=choice3; 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise; 

self.value=temp\/alue 

msgStopC'Problem", "Value  must  be  either  SAT,  UNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSvritch 
endlf 

endmethod 


#Page2.#Box1 08.MatlD_ExamEndDate 
:  ChangeValue 


Source : 


method  changeValue(var  eventinfo  ValueEvent) 
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var 

tempValue  AnyType 
endVar 

tempValue=Self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
if  eventInfo.newValueO  >  todayO  then 
Self.value=tempValue 

msgStop("Probiem",”ExamEndDate  cannot  be  a  future  date!") 
eventlnfo.setErrorCode(-1 ) 
endlf 
endlf 

endmethod 


#Page2.#Box108.StandEquipSatisfied_ 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choicel 

choice2="N" 


tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO*0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newVaiueO=choice2: 
otherwise: 

self.value=tempValue 

msgStopC'Probiem", "Value  must  be  either  Y  or  N") 
eventinfo  .setErrorCode(-1 ) 
endS\witch 
endlf 

endmethod 


#Page2.#Box107.TtlNrOfBoilersFlexed 


arrive 


method  arrive(var  eventinfo  MoveEvent) 

TtlNrOfBoilersFlexed.value=TtlNrOfLevel1Fiex+TtlNrOfLevel2Flex+TtlNrOfLevel3Flex+ 

TtlNrOfLevel4Flex+TtlNrOfLevel5Flex 

endmethod 
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#Page2.#Box106.MatSelfAssessGrade 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choicel  ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC" 

tempValue=self.vaiue 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newVaIueO=choice1 : 
case  eventinfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4; 
case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value^tempValue 

msgStopC’Problem", "Value  must  be  either  SAT,  UNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box1 06.IOP_Comments 
:  action 

method  action(var  eventinfo  ActionEvent) 

Switch 

case  propType.vaiue="GT": 
if  eventlnfo.idO=fieldForward  then 
disableDefault 
materialGrade.moveToO 
endlf 

case  propType.value="DSL": 
if  eventlnfo.idO=fleldForward  then 
disableDefault 
materialGrade.moveT  oQ 
endlf 

endSwitch 
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#Page2.#Box1  OS.PreservationGrade 
changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choicel  ="SAT" 

choice2="UNS" 

choice3="NA'' 

choice4="GOOD" 

choice5=”EXC" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3; 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem", "Value  must  be  either  SAT,  DNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box1  OS.HighPwrDemoGrade 
changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 


choicel  ="SAr 
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choice2="UNS" 

choice3="NA" 

choice4="GOOD'' 

choice5="EXC" 

tempValue=self.vaIue 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventinfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
caseeventlnfo.newValueO=choice3: 
caseeventlnfo.newValueO=choice4: 
case  eventinfo.newVaiueO=choice5: 
otherwise: 

self.value=tempValue 

msgStop("Problem'', "Value  must  be  either  SAT,  UNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box1  OS.CleanlinessGrade 
changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempVaiue  anyType 
choicel  String 
choice2  String 
choice3  String 
choice4  String 
choices  String 
endVar 

choicel  ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD” 

choice5="EXC" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
caseeventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise; 

self.value=tempValue 

msgStopC'Problem", "Value  must  be  either  SAT,  UNS,  GOOD,  EXC,  or  NA") 
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eventlnfo.setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box1  OS.StowageGrade 
changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choicel  =”SAT" 

choice2="UNS" 

choice3="NA" 

choice4=‘’GOOD" 

choice5="EXC" 


tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventinfo.new\/alue0=choice1 : 
case  eventinfo.newVaiueO=choice2: 
case  eventinfo.newValueO=choice3: 
case  eventlnfo.newVaiueO=choice4: 
case  eventinfo.newVaiueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem”, "Value  must  be  either  SAT,  DNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box1  OS.GageCalGrade 
changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
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choice1="SAT" 

choice2="UNS" 

choice3="NA" 

choice4=’'GOOD" 

choice5="EXC’' 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise: 

self  .val  ue=tempValue 

msgStopC'Problem", 'Value  must  be  either  SAT,  UNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box1 06.CSMP_Grade 
changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choicel  ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3; 
caseeventlnfo.newValueO=choice4: 
case  eventlnfo.newA/alueO=choice5: 


111 


Object : 
MethodName : 
Source ; 


Object : 
MethodName : 
Source : 


otherwise: 

self.value=tempValue 

msgStopC'Problem", "Value  must  be  either  SAT,  UNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box1  OS.ValveMaintGrade 
changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choice  1  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choice!  =”SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5='’EXC" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStop("Problem",''Value  must  be  either  SAT,  UNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box105.INSERT_NEW_MAT_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 

action(datalnsertRecord) 

endmethod 
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#Page2.#Box105.MatlD_Ship_ShipName_FK4 

changeValue 

method  changeValue(var  eventlnfo  ValueEvent) 
doDefault 

if  eventInfo.errorCodeO  =  0  then 
;input  accepted  by  Paradox 
else 

msgStopC'Problem",  "The  ship  you  entered  is  not  valid.  You  must  enter  the  ship  first!") 
endlf 

endmethod 


#Page2.#Box1  OS.HullNumber 
arrive 

method  arrive(var  eventlnfo  MoveEvent) 
disableDefault 

moveT  o("MatID_ExamEndDate") 
endmethod 
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OPERATIONS_INPUT_FORM 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
var 

examMenu  Menu 
ReportPop  PopUpMenu 
AddPoP  PopUpMenu 
endVar 

if  eventInfo.isPreFilterO 
then 

:  This  code  executes  for  each  object  on  the  form. 


else 

;  This  code  executes  only  for  the  form. 

AddPop.addT  ext("&Locate") 

AddPop.addTextC’&Delete’') 

examMenu.addPopUpC'&Record”,  AddPop) 

examMenu.addT  ext("&Quit") 

examMenu.addT  extC'&Help") 

examMenu.showQ 

maximizeO 

hideSpeedBarO 

editO 

action(DatalnsertRecord) 

endif 

endmethod 


OPERATIONSJNPUT_FORM 

menuAction 

method  menuAction(var  eventinfo  MenuEvent) 
var 

myRep  Report 
reply  String 
endVar 

if  eventInfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 

Switch 

case  eventInfo.menuChoiceO  ="&Locate'': 
action(DataSearch) 

case  eventInfo.menuChoiceO  ="&Delete'': 
if  "Yes"=msgQuestionC'Delete  Record"  "Are  you  sure  you  want  to  delete 
"+Operati_Ship_ShipName_FK3+"?")  then 

deleteRecordO 

endif 

case  eventInfo.menuChoiceO  ="&Help": 
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case  eventInfo.menuChoiceO  ="&Quit": 
reply=msgQuestionf  Quit", "Are  you  sure  you  want  to  leave  this  form?") 
If  reply  =  "Yes"  then 
closeO 
else 
return 
endlf 

endSwitch 

endif 

endmethod 


#Page2.#Box62.0perationGrade 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choicel  ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.ne\WalueO=choice1 : 
case  eventlnfo.new\/alue0=choice2: 
case  eventlnfo.new\/alue0=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise; 

self.vaiue=tempValue 

msgStopC'Problem", "Value  must  be  either  SAT,  UNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box62.EccttGrade 

changeValue 


Source : 


method  changeValue(var  eventinfo  ValueEvent) 
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var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choicel  ="SAr' 

choice2="UNS" 

choice3="NA" 

choice4=''GOOD'' 

choice5="EXC” 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3; 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.new\/alue0=choice5: 
otherwise: 

self.value=tempValue 

msgStopCProblem", "Value  must  be  either  SAT,  UNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box61.0perationlD_ExamEndDate 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  AnyType 
endVar 

tempValue=Self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
if  eventInfo.newValueO  >  todayO  then 
Self.value=tempValue 

msgStopC'Problem","ExamEndDate  cannot  be  a  future  date!") 
eventlnfo.setErrorCode(-1 ) 
endlf 
endlf 

endmethod 


#Page2.#Box60.INSERT_NEW_EXAM_BUTTON 
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pushButton 

method  pushButton(var  eventinfo  Event) 

action(datalnsertRecord) 

endmethod 


#Page2.#Box60.Operati_Ship_ShipName_FK3 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
doDefault 

if  eventlnfo.errorCodeO  =  0  then 
;input  accepted  by  Paradox 
else 

msgStopC'Problem",  "The  ship  you  entered  is  not  valid.  You  must  enter  the  ship  first!") 
endlf 

endmethod 


#Page2.#Box60.HullNumber 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
disableDefault 

moveTo("OperationlD_ExamEndDate") 

endmethod 
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PMJNPUT_FORM 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
var 

examMenu  Menu 
ReportPop  PopUpMenu 
AddPoP  PopUpMenu 
endVar 

if  eventInfo.isPreFilterO 
then 

:  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 

AddPop.addT  ext("&Locate") 

AddPop.addT  extf&Delete") 

examMenu.addPopUpC'&Record",  AddPop) 

examMenu.addT  ext("&Quit") 

examMenu.showfO 

maximizeO 

hideSpeedBarO 

editO 

action(datalnsertRecord) 

endif 

endmethod 


PMJNPUT_FORM 

menuAcHon 

method  menuAction(var  eventinfo  MenuEvent) 
var 

myRep  Report 
reply  String 
endVar 

if  eventInfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 

Switch 

case  eventInfo.menuChoiceO  ="&Locate": 
action(DataSearch) 

case  eventInfo.menuChoiceO  =''&Delete''; 
if  "Yes"=msgQuestionC'Delete  Record", "Are  you  sure  you  want  to  delete 
"+PMJD_Ship_ShipName_FK6+"?")then 

deleteRecordO 

endif 

case  eventInfo.menuChoiceO  ="&Quit": 
reply=msgQuestion("Quit","Are  you  sure  you  want  to  leave  this  form?") 
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Object : 
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If  reply  =  "Yes"  then 
closeO 
else 
return 
endlf 

endSwitch 

endif 

endmethod 


#Page2.#Box77.ProgramManageGrade 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
TC  TCursor 
endVar 

choicel  ="SAT" 

choice2="UNS" 

choice3="EXC'' 

choice4="GOOD" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
caseeventlnfo.newValueO=choice2; 
caseeventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO-choice4: 
otherwise: 

self.value=tempValue 

msgStopC'Problem", "Value  must  be  either  EXC,  GOOD,  SAT,  or  UNS") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2  .#Box76.HeatStress 
ChangeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
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choices  String 
TC  TCursor 
endVar 

choice1=''SAr' 

choice2=''UNS" 

choice3="EXC" 

choice4="GOOD'' 

choice5="NA" 

tempValue=se!f.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.new\/alue0=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem", 'Value  must  be  either  EXC,  GOOD,  SAT,  UNS,  or  NA") 
eventlnfo.setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.HearingConsGrade 

changeValue 

method  changeVaiue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
TC  TCursor 
endVar 

choicel  ="SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choiceS="NA” 

tempValue=self.  value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newVaiueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4; 
case  eventinfo. newValueO=choiceS: 
otherwise: 
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self.value=tempValue 

msgStopC'Problem", "Value  must  be  either  EXC,  GOOD,  SAT,  UNS,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.PM_ID_ExamEndDate 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  AnyType 
endVar 

tempValue=Self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
if  eventlnfo.newValueO  >  todayQ  then 
Self.value=tempValue 

msgStopC'Problem","ExamEndDate  cannot  be  a  future  date!") 
eventlnfo.setErrorCode(-1 ) 
endlf 
endlf 

endmethod 


#Page2.#Box76.0pLogsGrade 

ChangeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
TC  TCursor 
endVar 

choicel  ="SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choice5="NA" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
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case  eventlnfo.new\/alue0=choice5:  • 
otherwise: 

self.value=tempValue 

msgStopC'Problem" /'Value  must  be  either  EXC,  GOOD,  SAT,  UNS,  or  NA") 
eventi  nfo.setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.QA_Grade 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
TO  TCursor 
endVar 

choicel  ="SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choice5="NA" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO*0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStop("Problem","Value  must  be  either  EXC,  GOOD,  SAT,  UNS,  or  NA ) 
eventinfo  .setErrorCode(-1 ) 
endSwritch 
endlf 

endmethod 


#Page2.#Box76.0LV_Grade 
:  ChangeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
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choices  String 
choice4  String 
choices  String 
TC  TCursor 
endVar 

choice1="SAT" 

choice2=*'UNS" 

choice3="EXC" 

choice4="GOOD" 

choice5="NA" 

tempValue=seif.value 

doDefauit 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.new\/alue0=choice5: 
otherwise: 

self.vaiue=tempValue 

msgStopC’Problem", "Value  must  be  either  EXC,  GOOD,  SAT,  UNS,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endif 

endmethod 


#Page2.#Box76.ElectSafetyGrade 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
TC  TCursor 
endVar 

choicel  =”SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choiceS="NA" 

tempValue=seif.value 

doDefauit 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
caseeventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
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case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem", "Value  must  be  either  EXC,  GOOD,  SAT,  UNS,  or  NA") 
eventlnfo.setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.T  agoutGrade 
changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
TO  TCursor 
endVar 

choice  1="SAT 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choice5="NA" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStop("Problem","Value  must  be  either  EXC,  GOOD,  SAT,  UNS,  or  NA") 
eventlnfo.setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.MGTESR_Grade 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
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choices  String 
choice4  String 
choices  String 
TC  TCursor 
endVar 

choice!  ="SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD” 

choice5="NA" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.new\/alue0=choice2; 
case  eventlnfo.newValueO=choice3: 
caseeventlnfo.new\/alue0=choice4: 
case  eventlnfo.newValueO=choice5: 
othenwise; 

seIf.value=tempValue 

msgStopC'Problem", "Value  must  be  either  EXC,  GOOD,  SAT,  UNS,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.BearingRecsGrade 

changeValue 

method  changeVaiue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choice!  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
TC  TCursor 
endVar 

choice!  ="SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choiceS="NA" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice! : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
caseeventlnfo.newValueO=choice4: 
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case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem", 'Value  must  be  either  EXC,  GOOD,  SAT,  UNS,  or  NA") 
eventinfo.setErrorCode(-1 ) 
endSwitch 
endlf 

end  method 


#Page2.#Box76.LegalRecsGrade 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
TC  TCursor 
endVar 

choicel  ="SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choice5="NA" 

tempValue=seif.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.new\/alue0=choice5: 
otherwise; 

self.value=tempValue 

msgStopC'Problem", "Value  must  be  either  EXC,  GOOD,  SAT,  UNS  or  NA") 
eventlnfo.setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.DETA_Grade 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
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choices  String 
choice4  String 
choices  String 
TC  TCursor 
endVar 

choice1="SAT" 

choice2=”UNS" 

choice3="EXC" 

choice4="GOOD" 

choice5="NA" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise; 

self.value=tempValue 

nnsgStop("Problem", "Value  must  be  either  EXC,  GOOD,  SAT,  UNS,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.DJV\nT_Grade 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
TC  TCursor 
endVar 

choicel  ="SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choiceS="NA" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
caseeventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4; 
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case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem", "Value  must  be  either  EXC,  GOOD,  SAT,  DNS,  NA") 
eventlnfo.setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.FOQM_Grade 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
TC  TCursor 
endVar 

choicel  ="SAT" 

choice2="UNS'' 

choice3="EXC" 

choice4="GOOD" 

choice5=”NA" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO®choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStop("Problem","Value  must  be  either  EXC,  GOOD,  SAT,  UNS,  or  NA") 
eventlnfo.setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.BWFW_Grade 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
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choices  String 
choice4  String 
choices  String 
TC  TCursor 
endVar 

choice!  ="SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choice5="NA" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 ; 
caseeventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise; 

self.value=tempValue 

msgStopC'Problem", "Value  must  be  either  EXC,  GOOD,  SAT,  UNS  or  NA") 
eventi  nfo.setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.LOQM_Grade 

changeValue 

method  changeValue(var  eventlnfo  ValueEvent) 
var 

tempValue  anyType 
choice!  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
TC  TCursor 
endVar 

choice!  ="SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choiceS="NA" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice! : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
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case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem", "Value  must  be  either  EXC,  GOOD,  SAT,  UNS,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box75.INSERT_NEW_PM_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 

action(datalnsertRecord) 

endmethod 


#Page2.#Box75.PM_ID_Ship_ShipName_FK6 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
doDefault 

if  eventInfo.errorCodeO  =  0  then 
;input  accepted  by  Paradox 
else 

msgStopC’Problem",  "The  ship  you  entered  is  not  valid.  You  must  enter  the  ship  first!") 
endlf 

endmethod 


#Page2.#Box75.HullNumber 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
disableDefault 

moveT  oC'PM_ID_ExamEndDate") 
endmethod 
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TRAININGJNPUT_FORM 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
var 

examMenu  Menu 
ReportPop  PopUpMenu 
AddPoP  PopUpMenu 
endVar 

if  eventInfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 

AddPop.addT  extC'&Locate") 

AddPop.addTextC'&Delete") 

examMenu.addPopUpC'&Record",  AddPop) 

examMenu.addText("&Quit") 

examMenu.addTextf&Help") 

examMenu.showQ 

maximizeO 

hideSpeedBarO 

editO 

action(DatalnsertRecord) 

endif 

end  method 


TRAINING_INPUT_FORM 

menuAction 

method  menuAclion(var  eventinfo  MenuEvent) 
var 

myRep  Report 
reply  String 
endVar 

if  eventlnfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 

Switch 

case  eventInfo.menuChoiceO  ="&Locate'': 
action(DataSearch) 

case  eventInfo.menuChoiceO  ="&Delete": 
if  "Yes"=msgQuestion("Delete  Record", "Are  you  sure  you  want  to  delete 
"+Trainin_Ship_ShipName_FK7+"?")  then 

deleteRecordO 

endif 

case  eventInfo.menuChoiceO  ="&Help": 
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case  eventInfo.menuChoiceO  ="&Quit": 
reply=msgQuestion ("Quit", "Are  you  sure  you  want  to  leave  this  form?") 
If  reply  =  "Yes"  then 
closeO 
else 
return 
endlf 
endSwitch 
endif 

endmethod 


#Page2.#Box86.TrainingProgramGrade 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choice  1  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choice1="SAr 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4; 
case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem", "Value  must  be  either  SAT,  DNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box85.TraininglD_ExamEndDate 

changeValue 


Source : 


method  changeValue(var  eventinfo  ValueEvent) 
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var 

tempValue  AnyType 
endVar 

tempValue=Self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
if  eventInfo.newA/alueO  >  todayQ  then 
Self.value=tempValue 

msgStop("Problem","ExamEndDate  cannot  be  a  future  date!") 
eventlnfo.setErrorCode(-1 ) 
endlf 
endlf 

endmethod 


#Page2.#Box85.NrOfSatOilKing 

action 

method  action(var  eventinfo  ActionEvent) 
Switch 

case  propType.value="DSL": 
if  eventlnfo.idO=fieldForward  then 
disableDefault 
NrOfSatENOW.moveT  oQ 
endlf 

case  propType.value="GT; 
if  eventlnfo.idO=fieldForward  then 
disableDefault 
NrOfSatPACC.moveToQ 
endlf 

endSwrtch 

endmethod 


#Page2.#Box85.TrainingGrade 
:  changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choice!  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choice!  ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC" 
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tempValue=self.  value 
doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.new\/alue0=choice1 : 
case  eventlnfo.newValueO=choice2: 
case  eventlnfo.newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC’Problem", "Value  must  be  either  SAT,  DNS,  GOOD,  EXC,  or  NA") 
eventinfo  .setErrorCode(-1 ) 
endSwitch 
endlf 

endmethod 


#Page2.#Box85.PQS_Grade 

changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
var 

tempValue  anyType 
choicel  String 
choice2  String 
choices  String 
choice4  String 
choices  String 
endVar 

choicel  ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5=”EXC" 

tempValue=self.value 

doDefault 

if  eventlnfo.errorCodeO=0  then 
switch 

case  eventlnfo.newValueO=choice1 : 
case  eventlnfo.new\/alue0=choice2: 
case  eventinfo. newValueO=choice3: 
case  eventlnfo.newValueO=choice4: 
case  eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStop("Problem",'Value  must  be  either  SAT,  UNS,  GOOD,  EXC,  or  NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 
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Object : 
MethodName : 
Source : 


Object : 
MethodName : 
Source : 


Object : 
MethodName : 
Source : 

Object : 
MethodName : 
Source : 

Object : 
MethodName 
Source : 


#Page2.#Box84.NrOfSatEDG_SWBD_Op 

action 

method  action  (var  eventinfo  ActionEvent) 
if  eventlnfo.idO=fieldForward  then 
disableDefauit 

KeyPersonnelLeaving.moveToQ 

endlf 

endmethod 


#Page2.#Box82.NrOfSatMsgr_EngOp 

action 

method  action(var  eventinfo  ActionEvent) 
if  eventlnfo.idO=fieldForward  then 
disableDefauit 

KeyPersonnelLeaving.moveT  oQ 
endlf 

endmethod 

#Page2.#Box81.INSERT_NEW_TRAIN_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 

action(datalnsertRecord) 

endmethod 


#Page2.#Box81  .HullNumber 
arrive 

method  arrive(var  eventinfo  MoveEvent) 
disableDefauit 

moveto('TraininglD_ExamEndDate'') 

endmethod 


#Page2.#Box81  .T  rainin_Ship_ShipName_FK7 
;  changeValue 

method  changeValue(var  eventinfo  ValueEvent) 
doDefault 

if  eventInfo.errorCodeO  =  0  then 
;input  accepted  by  Paradox 
6lS0 

msgStopC’Problem",  "The  ship  you  entered  is  not  valid.  You  must  enter  the  ship  first!") 
endlf 

endmethod 
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Object : 
MethodName : 
Source : 


Object : 
MethodName : 
Source : 


BOILER_FLEX_QUERY 

Const 

Const 

ViewFlex1=301 

ViewFlex2=302 

\/iewFlex3=303 

ViewFlex4=304 

ViewFlex5=305 

PrintFlex1=313 

PrintFlex2=314 

PrintFlex3=315 

PrintFlex4=316 

PrintFlex5=317 

PrintFlex6=318 

endConst 


BOILER_FLEX_QUERY 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
var 

tcTcursor 

examMenu,  View,  Print,  ReportMenu  Menu 

PrintPop  PopUpMenu 

ViewPop  PopUpMenu 

ViewFlexPop  PopUpMenu 

PrintFIexPop  PopUpMenu 

examtype  PopupMenu 

endVar 

if  eventInfo.isPreFiiterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 

PrintPop.addTextC'Flex  &1  ","",PrintFlex1 ) 
PrintPop.addText("Flex&2","",PrintFlex2) 

PrintPop.addTextC’Flex  &3”,”",PrintFlex3) 
PrlntPop.addText("Flex&4","",PrintFlex4) 
PrintPop.addText("Flex&5","",PrintFlex5) 
PrintPop.addTextC'&Graph'',"",PrintFlex6) 

ViewPop.addText("Flex  &1  ","",ViewFlex1 ) 
ViewPop.addText("Flex&2","",ViewFlex2) 
ViewPop.addText("Flex&3","",ViewFIex3) 
ViewPop.addText(''Flex&4'',"",ViewFlex4) 

ViewPop.addT  extfFlex  &5","",ViewFlex5) 
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examMenu  .addPopUp("&View",  ViewPop) 
examMenu. addPopUP("&Print",  PrintPop) 


Object : 
MethodName : 
Source : 


examMenu.addText("&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

tc.openC'percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endif 

endmethod 


B01LER_FLEX_QUERY 

menuAction 

method  menuAction(var  eventinfo  MenuEvent) 
var 

myRep  Report 
reply  String 
choiceld  Smallint 
m  menu 
endVar 

choiceld=eventlnfo.idO 

if  eventlnfo-isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 


else 

;  This  code  executes  only  for  the  form. 


Switch 

case  eventInfo.menuChoiceO  =''&Help": 

case  eventlnfo.menuChoiceO  ="&Qult": 
reply=msgQuestion("Quit","Are  you  sure  you  want  to  leave  this  form?") 
If  reply  =  "Yes"  then 
closeQ 
else 
return 
endif 

endSwitch 

Switch 

case  choiceld  =ViewFlex1 : 
myRep.open("Flex1",WinStyleMaximi2e) 
hideSpeedBarO 
m.addText("") 
m.showO 

case  choiceld  =ViewFlex2: 
myRep.openC'Flex2",WinStyleMaximize) 
hideSpeedBarO 
m.addText("") 
m.showO 

case  choiceld  =ViewFlex3: 
myRep.open("Flex3",WinStyieMaximi2e) 
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Object : 
MethodName : 
Source : 


hideSpeedBarO 

m.addTextn 

m.showO 

case  choiceld  =ViewFlex4: 
myRep.openC'Flex4",WinStyleMaximize) 
hideSpeedBarO 
m.addTextn 
m.showO 

case  choiceld  =ViewFlex5: 
myRep.open("Flex5",  WinStyleMaximize) 

hideSpeedBarO 

m.addTextn 

m.showO 

case  choiceld  =PrintFlex1 : 
myRep.print("Flex1 ") 
case  choiceld  =PrintFlex2: 
myRep.print("Flex2'') 
case  choiceld  =PrintFlex3: 
myRep.print("Flex3") 
case  choiceld  =PrintFlex4: 
myRep.printC'Flex4") 
case  choiceld  =PrintFlex5: 
myRep.printC'FlexS") 
case  choiceld  =PrintFlex6: 
myRep.printC'BoilFlex") 
endSwitch 
endif 

endmethod 


#Page2 

setFocus 

method  setFocus(var  eventinfo  Event) 
var 

examMenu,  View,  Print,  ReportMenu  Menu 

PrintPop  PopUpMenu 

ViewPop  PopUpMenu 

ViewFlexPop  PopUpMenu 

PrintFlexPop  PopUpMenu 

examtype  PopupMenu 

endVar 

if  eventInfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 

PrintPop.addTextC'Flex  &1 PrintFlexI ) 
PrintPop.addTextrFlex&2","'',PrintFlex2) 

PrintPop.addTextC'Flex  &3",'"',PrintFlex3) 
PrintPop.addTextC'Flex&4","",PrintFlex4) 

PrintPop.addTextC'Flex  &5","",PrintFlex5) 
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PrintPop.addText('’&Graph","",PrintFIex6) 


Object ; 
MethodName : 
Source : 


Object : 
MethodName 
Source ; 


ViewPop.addTextC'Flex  &1  ","",ViewFlex1 ) 
ViewPop.addText("Flex&2","",ViewFlex2) 
ViewPop.addTextC’Flex  &3";"',ViewFlex3) 
ViewPop.addTextC'Flex  &4","",ViewFlex4) 
ViewPop.addTextC’Flex  &5","",ViewFlex5) 

examMenu.addPopUp("&View",  ViewPop) 

examMenu.addPopUPC’&Print",  PrintPop) 

examMenu  .addT  extC'&Quit") 

examMenu-showO 

maximizeO 

hideSpeedBarO 

endif 

endmethod 


#Page2.RESET_GRAPH_BUTT0N 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tcTcursor 

endVar 

tc.openC’percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endmethod 


#Page2.#Box23.LEVEL2_BUTTON 
:  pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 

numberOfFlexes  Number 
totalNumberOfFlexes  Number 
flexPercentage  Number 
myQuery  Query 
examDate!  Date 
examDate2  Date 
endVar 
doDefault 

examDatel  =date("01  /01/00") 
examDate2=dateC’12/31/99'’) 
examDatel  .viewC’Enter  start  date  (I.E.  01/01/95)") 
examDate2.viewC’Enter  stop  date  (I.E.  12/12/99)") 

myQuery=Query 
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ANSWER:  :PRIV:ANSWER.DB 


Object : 
MethodName : 
Source : 


EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  |ExamType  1 

1  _EG01  I  Check  >=~examDate1 ,  <=~examDate2|Check  =OPPE  OR  =REOPPEl 

SHIP.DB  I  ShipName  |  PropType  | 

I  Check  _EG02,_EG01  |  Check  =STM| 

MATERIAL.DB  |  MatlD_Ship_ShipName_FK4  |  TtINrOfLevel2Flex  | 

|_EG02  I  Check  | 

MATERIAL.DB  |  TtlNrOfBoilersFlexed  |  BoilerFlexComments  | 

I  Check  I  Check  | 


EndQuery 

doDefault 

emptyC'flex2") 

executeQBE(myQuery,  "flex2.db") 
tbl.attach(''flex2") 

numberOfFlexes=tbl.cSum("TtlNrOfLevel2Flex'') 

msgInfoC'Level  Two  Boiler  Flex", "The  total  number  of  Level  Two  Flexes  are " 
+strVal(NumberOfFlexes)) 

TotalNumberOfFlexes=tbl.cSumCTtlNrOfBoilereFlexed") 
if  totalNumberofFlexes  <>  0  then 

msglnfofLevel  Two  Boiler  Flex", "The  total  number  of  Boiler  Flexes  are " 
+str\/al(totalNumberOfFlexes)) 

FlexPercentage=(numberOfFlexes/totalNumberOfFlexes)*100 
msgInfoC'Level  Two  Boiler  Flex","The  Level  Two  Boiler  Flex  percentage  is  " 
+stiVal(FlexPercentage)) 

else 

msgStopC’Problem","The  TOTAL  NUMBER  of  boiler  flexes  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=flexPercentage 

tc.rPropType")="Lvl2" 

tc.("examDate1  ")=examDate1 

tc.CexamDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box23.LEVEL5_LIST_SHIPS_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableView 
endVar 

newView.open("Flex5") 
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endmethod 


Object : 
MethodName : 
Source : 


Object : 
MethodName ; 
Source : 


Object : 
MethodName : 
Source : 


Object : 
MethodName 
Source : 


Object : 
MethodName 
Source : 


#Page2.#Box23.LEVEL4_LlST_SHIPS_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableView 
endVar 

newView.open("Flex4") 

endmethod 


#Page2.#Box23.LEVEL3_LISTS_SHIPS_BUTTON 

pushButton 

method  pushButton  (var  eventinfo  Event) 
var 

newView  tableView 
endVar 

newView.open("Flex3'') 

endmethod 


#Page2.#Box23.LEVEL2_LIST_SHIPS_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableView 
endVar 

newView.open(''Flex2") 

endmethod 


#Page2.#Box23.LEVEL1_LIST_SHIPS_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableView 
endVar 

newView.openC'Flexf ") 
endmethod 


#Page2.#Box23.LEVEL4_BUTTON 
:  pushButton 

method  push  Button  (var  eventinfo  Event) 
var 
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tc  tCursor 
tbi  table 

numberOfFlexes  Number 
totalNumberOfFlexes  Number 
flexPercentage  Number 
myQuery  Query 
examDatet  Date 
examDate2  Date 
endVar 
doDefault 

examDatel  =date("01  /01  /OO") 
examDate2=date(''1 2/31  /99") 
examDatel  .view("Enter  start  date  (I.E.  01/01/95)") 
examDate2.view("Enter  stop  date  (I.E.  12/12/99y') 

myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EX/\M.DB  1  ExamlD_Shlp_ShipName_FK2 1  ExamlD_ExamEndDate  lExamType 

I  _EG01  I  Check  >=~examDate1 ,  <=~examDate2|Check  =OPPE  OR  REOPPEj 

SHIP.DB  I  ShipName  |  PropType  | 

1  Check  _EG02,  _EG01  |  Check  =STM| 

MATERIAL.DB  1  MatlD_Ship_ShipName_FK4  |  TtlNrOfLeveWFlex  1 
I  _EG02  I  Check  1 

MATERIAL.DB  |  TtlNrOfBoilersFlexed  |  BoilerFlexComments  1 
I  Check  I  Check  | 


EndQuery 

doDefault 

empty("flex4") 

executeQBE(myQuery,  "flex4.db") 
tbl.attachrflex4”) 

numberOfFlexes=tbl.cSum("TtlNrOfLevel4Flex'') 

msgInfoC'Level  Four  Boiler  Flex", "The  total  number  of  Level  Four  Flexes  are " 
+str\/al(NumberOfFlexes)) 

TotalNumberOfFlexes=tbl.cSum("TtlNrOfBoilersFlexed") 
if  totalNumberofFlexes  <>  0  then 

msglnfofLevel  Four  Boiler  Flex", "The  total  number  of  Boiler  Flexes  are " 
+str\/al(totalNumberOfFlexes)) 

FlexPercentage=(numberOfFlexes/totalNumberOfFlexes)*100 
msgInfoC'Level  Four  Boiler  Flex", "The  Level  Four  Boiler  Flex  percentage  is " 
+strVal  (FlexPercentage)) 

else 

msgStop("Problem","The  total  number  of  flexes  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 
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Object : 
MethodName ; 
Source ; 


tc.CPercentage")=flexPercentage 

tc.("PropType")="Lvl4" 

tc.fexamDatel  ")=examDate1 

tc.CexamDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box23.LEVEL5_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 

numberOfFlexes  Number 
totalNumberOfFlexes  Number 
flexPercentage  Number 
myQuery  Query 
examDatel  Date 
examDate2  Date 
endVar 
doDefault 

examDatel  =date("01  /01  /OO") 
examDate2=dateC'1 2/31 199") 
examDatel  .viewfEnter  start  date  (l.E.  01/01/95)") 
examDate2.view("Enter  stop  date  (l.E.  12/12/99/') 

myQuery=Query 

ANSWER;  :PRIV:/\NSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2 1  ExamlD_ExamEndDate  |ExamType  1 

I  _EG01  I  Check  >=~examDate1 ,  <=~examDate2|Check  =OPPE  OR  REOPPE| 

SHIP.DB  I  ShipName  1  PropType  | 

1  Check  _EG02,  _EG01  i  Check  =STM1 

MATERIAL.DB  |  MatlD_Ship_ShipName_FK4  |  TtlNrOfLevelSFlex  | 

I  _EG02  I  Check  | 

MATERIAL.DB  |  TtlNrOfBoilersFlexed  1  BoilerFlexComments  | 

1  Check  1  Check  1 


EndQuery 

doDefault 

emptyC'flex5") 

executeQBE(myQuery,  "flexS.db") 
tbl.attach(”flex5") 

numberOfFlexes=tbl.cSum("TtlNrOfLevel5Flex") 

msglnfo("Level  Five  Boiler  Flex", "The  total  number  of  Level  Five  Flexes  are " 
+strVal(NumberOfFlexes)) 
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Object : 
MethodName : 
Source ; 


TotalNumberOfFlexes=tbl.cSum("TtlNrOfBoilersFlexed") 
if  totalNumberofFlexes  <>  0  then 

msglnfo("Level  Five  Boiler  Flex", "The  total  number  of  Boiler  Five  are  " 
+strVal(totalNumberOfFlexes)) 

FlexPercentage=(numberOfFlexes/totalNumberOfFlexes)*100 
msgInfoC'Level  Five  Boiler  Flex", 'The  Level  Five  Boiler  Flex  percentage  is " 
+strVal(FlexPercentage)) 

0lS6 

msgStop("Problem",”The  total  number  of  flexes  is  0,  you  cannot  divide  by  Ol") 
return 
endlf 

tc.openfpercent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=flexPercentage 

tc.("PropType")="Lvl5” 

tc.("examDate1  ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditQ 

endmethod 


#Page2.#Box23.LEVEL1_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 

numberOfFlexes  Number 
totalNumberOfFlexes  Number 
flexPercentage  Number 
myQuery  Query 
myQueryl  Query 
examDatel  Date 
examDate2  Date 
PropType  String 
ExamType  String 
endVar 
doDefault 

examDatel  =date("01 701/00") 
examDate2=date("1 2/31  /99") 
examDatel  .viewfEnter  start  date  (I.E.  01/01/95)") 
examDate2.view("Enter  stop  date  (I.E.  12/12/99)") 

myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EX/WI.DB  I  ExamlD_Ship_ShipName_FK2 1  ExamlD_ExamEndDate  |ExamType  | 

I  _EG01  1  Check  >=~examDate1 ,  <=~examDate2|Check  =OPPE  OR  =REOPPE| 

SHIP.DB  1  ShipName  1  PropType  | 

I  Check  _EG02,  _EG01  I  Check  =STMl 
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Object : 
MethodName 
Source : 


MATERIAL.DB  |  MatlD_Ship_ShipName_FK4  ]  TtlNrOfLeveMFlex  ] 
I  _EG02  I  Check  | 

MATERIAL.DB  |  TtlNrOfBoilersFlexed  |  BoilerFlexComments  | 

I  Check  I  Check  | 


EndQuery 

doDefault 

empty("flex1") 

executeQBE(myQuery,  "flexi  .db") 
tbl.attach("flex1") 

numberOfFlexes=tbl.cSum("TtlNrOfLevel1Flex") 

msgInfoCLevel  One  Boiler  Flex", "The  total  number  of  Level  One  Flexes  are " 
+strVal(NumberOfFlexes)) 

TotalNumberOfFlexes=tbl.cSumn’tlNrOfBoilersFlexed") 
if  totalNumberofFlexes  <>  0  then 

msgInfoC'Level  One  Boiler  Flex" ."The  total  number  of  Boiler  Flexes  are " 
+strVal(totalNumberOfFlexes)) 

FlexPercentage=(numberOfFlexes/totalNumberOfFlexes)*100 
msgInfoC'Level  One  Boiler  Flex", "The  Level  One  Boiler  Flex  percentage  is  " 
+sttVal(FlexPercentage)) 

6lS6 

msgStop("Problem","The  TOTAL  NUMBER  of  boiler  flexes  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openCpercent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=flexPercentage 

tc.C'PropType")="Lvl1" 

tc.fexamDatel  ")=examDate1 

tc.fexamDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box23.LEVEL3_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 

numberOfFlexes  Number 
totalNumberOfFlexes  Number 
flexPercentage  Number 
myOuery  Query 
examDatel  Date 
examDate2  Date 
endVar 
doDefault 

examDatel  =date("01/01/00") 
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examDate2=date("1 2/31/99") 

examDatel  .viewfEnter  start  date  (l.E.  01/01/95)") 

examDate2.viewC'Enter  stop  date  (l.E.  12/12/99y') 

myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EX/WI.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  |ExamType  | 

I  _EG01  I  Check  >=~examDate1 ,  <=~examDate2|Check  =OPPE  OR  =REOPPE| 

SHIP.DB  1  ShipName  1  PropType  1 
I  Check  _EG02,  _EG01  |  Check  =STM1 

MATERIAL.DB  1  MatlD_Ship_ShipName_FK4  |  TtlNrOfLevelSFlex  | 

I  _EG02  I  Check  1 

MATERIAL.DB  |  TtlNrOfBoilersFlexed  |  BoilerFlexComments  | 

I  Check  I  Check  | 


EndQuery 

doDefault 

empty("flex3") 

executeQBE(myQuery,  "flex3.db") 
tbl.attach("flex3") 

numberOfFlexes=tbl.cSum("TtlNrOfLeveI3Flex") 

msgInfoC'Level  Three  Boiler  Flex", "The  total  number  of  Level  Three  Flexes  are " 
+strVal(NumberOfFlexes)) 

TotalNumberOfFlexes=tbl.cSumC'TtlNrOfBoilersFlexed") 
if  totalNumberofFlexes  <>  0  then 

msgInfoC'Level  Three  Boiler  Flex", "The  total  number  of  Boiler  Flexes  are " 
+strVal(totalNumberOfFlexes)) 

FlexPercentage=(numberOfFlexes/totalNumberOfFlexes)*100 
msgInfoC'Level  Three  Boiler  Flex","The  Level  Three  Boiler  Flex  percentage  is " 
+strVal(FlexPercentage)) 

6lS6 

msgStop("Problem'','The  TOTAL  NUMBER  of  boiler  flexes  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=flexPercentage 
tc.("PropType")="Lvl3" 
tc.("examDate1  ")=examDate1 
tc.(''examDate2")=examDate2 
tc.endEditO 

endmethod 
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Object : 
MethodName : 
Source : 


Object ; 
MethodName : 
Source : 


ECCTT_QUERY 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
var 

tcTcursor 
examMenu  Menu 
ReportPop  PopUpMenu 
ViewPop  PopUpMenu 
PrintPop  PopUpMenu 
endVar 

if  eventlnfoJsPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 


else 

;  This  code  executes  only  for  the  form. 

PrIntPop.addTextfU&nsat  ECCTT  Report") 
PrintPop.addText(”S&at  ECCTT  Report") 
PrintPop.addT  ext("&Graph") 

Vie\wPop.addText("&Unsat  ECCTT  Report") 
ViewPop.addTextr&Sat  ECCTT  Report") 
ReportPop.addPopUpC'&View",  ViewPoP) 
ReportPop.addPopUpC’&Prinf,  PrintPoP) 
examMenu.addPopUpC&Report",  ReportPoP) 
examMenu.addText("&Quit") 

examMenu.shovirO 
maximizeO 
hideSpeedBarO 
tc.open("  percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endif 

endmethod 


ECCTT_QUERY 

menuAction 

method  menuAction(var  eventinfo  MenuEvent) 
var 

myRep  Report 
reply  String 
m  menu 
endVar 

if  eventlnfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 


;  This  code  executes  oniy  for  the  form. 
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else 


Switch 


Object : 
MethodName : 
Source : 


case  eventInfo.menuChoiceO  ="&Unsat  ECCTT  Report": 
myRep.open("ECCTT2'',  WinStyleMaximize) 
hideSpeedBarO 
m.addTextr") 
m.showO 

case  eventInfo.menuChoiceO  ="&Sat  ECCTT  Report": 
myRep.open("ECCTT",  WinStyleMaximize) 
hideSpeedBarO 
m.addTextr) 
m.showO 

case  eventInfo.menuChoiceO  ="&Graph": 
myRep.print("ECCTT1") 

case  eventInfo.menuChoiceO  ="U&nsat  ECCTT  Report": 
myRep.printCECCTT2") 

case  eventInfo.menuChoiceO  ="S&at  ECCTT  Report": 
myRep.  printC'ECCTT") 

case  eventInfo.menuChoiceO  ="&Help": 

case  eventInfo.menuChoiceO  ="&Quit": 
reply=msgQuestion("Quit","Are  you  sure  you  want  to  leave  this  form?") 
If  reply  =  "Yes"  then 
closeO 
else 
return 
endlf 
endSwitch 
endif 

endmethod 


#Page2 

setFocus 

method  setFocus(var  eventinfo  Event) 
var 

examMenu  Menu 
ReportPop  PopUpMenu 
ViewPop  PopUpMenu 
PrintPop  PopUpMenu 
endVar 

PrintPop.addText("U&nsat  ECCTT  Report") 

PrintPop.addTextfS&at  ECCTT  Report") 

PrintPop.addTextC'&Graph") 

ViewPop.addText("&Unsat  ECCTT  Report") 

ViewPop.addTextf&Sat  ECCTT  Report") 

ReportPop.addPopUp("&View".  ViewPoP) 

ReportPop.addPopUpC&Print",  PrintPoP) 

examMenu.addPopUp("&Report",  ReportPoP) 

examMenu.addT  extC’&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

endmethod 
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Object : 
MethodName : 
Source ; 


Object : 
MethodName : 
Source : 


Object : 
MethodName 
Source : 


#Page2.RESET_GRAPH_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tcTcursor 

endVar 

tc.openC'percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endmethod 


#Page2.LIST_SHIPS_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

ne\w\/iew  tableView 
choice  string 
endVar 
choice="SAr' 

choice.viewC'Enter  SAT  or  UNS  to  view  the  list  of  ships") 
switch 

case  choice="SAT":  newView.open("ECCTT") 
case  choice="UNS":  newView.open("ECCTT2") 
otherwise; 

msgStop("Problem","The  choices  for  ECCTT  grade  are  SAT,  or  UNS  only!") 
return 
endSwitch 
endmethod 


#Page2.ECCTT_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 

numberOfSatECCTT  Number 
totalNumberOfECCTT  Number 
satPercentageECCTT  Number 
myQuery  Query 
myQueryt  Query 
myQuery2  Query 
examDatel  Date 
examDate2  Date 
propType  String 
examType  String 
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endVar 

doDefault 

examDatel  =date("01/01 100”) 
examDate2=date("12A31/99") 
propType="GF 

examDatel  .view("Enter  start  date  (I.E.  01/01/95)") 
examDate2.view("Enter  stop  date  (I.E.  01/01/95y') 
propType.viewfEnter  prop  type  (GT/STM/DSL)") 
switch 

case  propType="Gr': 
case  propType="STM": 
case  propType=''DSL": 
case  propType="ALL": 
otherwise: 

msgStop("Problem","The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!') 
return 
endSwitch 

if  propType="ALL''  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

SHIP.DB  I  ShipName  |  PropType  1 
1_EG01  I  Check  | 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |  OperationlD_ExamEndDate  | 

I  Check  _EG01  |  Check  >=~examDate1 ,  <=~examDate2| 

OPERATIO.DB  |  EccttGrade  |  EccttComments  | 

I  Check  =SAT  |  Check  | 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

SHIP.DB  1  ShipName  |  PropType  | 

I  _EG01  I  Check  | 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |  OperationlD_ExamEndDate  | 
1  Check  _EG01  |  Check  >=~examDate1 ,  <=~examDate2| 

OPERATIO.DB  |  EccttGrade  |  EccttComments  | 

I  Check  1  Check  | 


EndQuery 

myQuery2=Query 

ANSWER:  :PRIV:ANSWER.DB 
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SHIP.DB  1  ShipName  |  PropType  | 

|_EG01  I  Check  | 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |  OperationlD_ExamEndDate  | 
I  Check  _EG01  I  Check  >=~examDate1 ,  <=~examDate2| 

OPERATIO.DB  |  EccttGrade  |  EccttComments  ] 

I  Check  =UNS  I  Check  | 


EndQuery 

else 

myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

SHIP.DB  I  ShipName  |  PropType  | 

I  _EG01  I  Check  =~PropType| 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |  OperationlD_ExamEndDate  | 
I  Check  _EG01  I  Check  >=~examDate1 ,  <=~examDate2| 

OPERATIO.DB  |  EccttGrade  |  EccttComments  | 

I  Check  =SAT  I  Check  | 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIVAkNSWER.DB 

SHIP.DB  I  ShipName  |  PropType  | 

I  _EG01  I  Check  =~PropType| 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |  OperationlD_ExamEndDate  | 
I  Check  _EG01  |  Check  >=~examDate1 ,  <=~examDate2| 

OPERATIO.DB  |  EccttGrade  |  EccttComments  | 

I  Check  I  Check  \ 


EndQuery 

myQuery2=Query 

ANSWER:  :PRIV:ANSWER.DB 

SHIP.DB  I  ShipName  |  PropType  | 

I  _EG01  I  Check  =~PropTypel 

OPERATIO.DB  ]  Operati_Ship_ShipName_FK3  |  OperationlD_ExamEndDate  \ 
I  Check  _EG01  |  Check  >=~examDate1 ,  <=~examDate2l 
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OPERATIO.DB  |  EccttGrade  |  EccttComments  | 
I  Check  =UNS  |  Check  | 


EndQuery 

endlf 

emptyCECCTT’’) 

emptyC'ECCTTI") 

empty("ECCTT2") 

executeQBE(myQuery,  "ECCTT.db") 
executeQBE(myQuery1 ,  "ECCTT1  .db") 
executeQBE(myQuery2,  "ECCTT2.db") 
tbLattachC'ECCTT") 
tbl1.attach("ECCTT1") 

numberOfSatECCTT=tbl.cCount(''EccttGrade") 
msglnfoC'ECCTT","The  total  number  of  sats  are " 

+strVal(NumberOfSatECCTT)) 

TotalNumberOfECCTT=tbl1.cCount("EccttGrade") 

IfTotalNumberOfECCTT  <>  Othen 
msglnfo("ECCTT",'The  total  number  is " 

+strVal(totalNumberOfECCTT)) 

SatPercentageECCTT =(numberOfSatECCTT/totalNumberOfECCTT)*1 00 
msglnfoC'ECCTT",'The  sat  percentage  is " 

+strVal(satPercentageECCTT)) 

0tS6 

msgStop(''Problem","The  total  number  of  ECCTT  grades  is  0,  you  cannot  divide  by  Ol") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageECCTT 

tc.("PropType")=PropType 

tc.f  examDatel  '')=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 
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Object : 
MethodName : 
Source : 


Object : 
MethodName 
Source : 


F1RE_DRILL_QUERY 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
var 

tcTcursor 

examMenu,  View,  Print,  ReportMenu  Menu 

ReportPop  PopUpMenu 

AddPoP  PopUpMenu 

PrintPop  PopUpMenu 

ViewPop  PopUpMenu 

endVar 

if  eventInfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 

ReportPop.addPopUpf&View",  ViewPop) 
ReportPop.addPopUpC’&Print",  PrintPop) 
PrintPop.addTextC'FireDrill  &1") 

PrintPop.addTextC’FireDrill  &2") 

PrintPop.addText("FireDrill  &3") 

PrintPop.addT  extf  &Graph") 

ViewPop.addTextfFire  Drill  &1") 

ViewPop.addTextfFire  Drill  &2") 

ViewPop.addTextC'Fire  Drill  &3") 

examMenu.addPopUpC&View",  ViewPop) 

examMenu.addPopUPC’&Print",  PrintPop) 

examMenu.addT  ext("&Quit”) 

examMenu.showQ 

maximizeO 

hideSpeedBarO 

tc.openC'percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endif 

endmethod 


FIRE_DRILL_QUERY 
:  menuAction 

method  menuAction(var  eventinfo  MenuEvent) 
var 

myRep  Report 
reply  String 
m  menu 
endVar 


Object : 
MethodName ; 
Source : 


if  eventInfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 


else 


;  This  code  executes  only  for  the  form. 

Switch 

case  eventInfo.menuChoiceO  ="&Locate": 
action(DataSearch) 

case  eventInfo.menuChoiceO  ="&Delete": 

if  ''Yes"=msgQuestion("Delete  Record", "Are  you  sure  you  want  to  delete  this  RECORD?")  then 
deleteRecordO 
endlf 

case  eventInfo.menuChoiceO  ="Fire  Drill  &1": 
myRep.openC'FireDrII ",  WinStyleMaximize) 
hideSpeedBarO 
m.addTextr") 
m.showO 

case  eventInfo.menuChoiceO  ="Fire  Drill  &2": 
myRep.open("FireDrl2",  WinStyleMaximize) 
hideSpeedBarO 
m.addText("") 
m.showO 

case  eventInfo.menuChoiceO  ="Fire  Drill  &3": 
myRep.openfFireDrlS",  WinStyleMaximize) 
hideSpeedBarO 
m.addTextC"') 
m.showO 

case  eventInfo.menuChoiceO  ="FireDriil  &1": 

myRep.printC'FireDrII ") 
case  eventInfo.menuChoiceO  ="FireDrill  &2": 
myRep.printC'FireDrl2") 
case  eventInfo.menuChoiceO  ="FireDrill  &3": 

myRep.print("FireDrl3") 
case  eventInfo.menuChoiceO  ="&Graph": 
myRep.print("FireDril") 
case  eventInfo.menuChoiceO  ="&Help": 


case  eventInfo.menuChoiceO  ="&Quit"; 
reply=msgQuestionC'Quit","Are  you  sure  you  want  to  leave  this  form?") 
If  reply  =  "Yes"  then 
closeO 
else 
return 
endlf 
endSwitch 
endif 

endmethod 


#Page2 

setFocus 

method  setFocus(var  eventinfo  Event) 
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Object : 
MethodName : 
Source : 


Object : 
MethodName : 
Source ; 


Object : 
MethodName 
Source : 


var 

examMenu,  View,  Print,  ReportMenu  Menu 

ReportPop  PopUpMenu 

AddPoP  PopUpMenu 

PrintPop  PopUpMenu 

ViewPop  PopUpMenu 

endVar 

ReportPop.addPopUpC'&View",  ViewPop) 
ReportPop.addPopUpC&Prinf,  PrintPop) 
PrintPop.addTextC'FireDrill  &1") 
PrintPop.addTextC'FireDrill  &2") 
PrintPop.addTextfFireDrill  &3") 
PrintPop.addT  extC&Graph") 

ViewPop.addTextC’Fire  Drill  &1") 
ViewPop.addTextCFire  Drill  &2") 
ViewPop.addTextC'Fire  Drill  &3") 

examMenu.addPopUpf&View",  ViewPop) 

examMenu.addPopUPf&Print",  PrintPop) 

examMenu.addTextf&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

endmethod 


#Page2.#Box15.FD3_LIST_SHIPS_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableView 
endVar 

newView.open("fireDrl3") 

endmethod 


#Page2.#Box15.FD2_LIST_SHIPS_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableVlew 
endVar 

newView.open(''fireDrl2") 

endmethod 


#Page2.#Box15.FD1_LIST_SHIPS_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 


155 


Object : 
MethodName : 
Source : 


var 

newView  tableView 
endVar 

newView.open("fireDrl1 ") 
endmethod 


#Page2.#Box1 5.FIRE_DRILL_3_BUTTON 
pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 
tbl2  table 

numberOfSats  Number 
totalNumberOfDrills  Number 
satPercentage  Number 
myQuery  Query 
myQueryl  Query 
exam  Date  1  Date 
examDate2  Date 
PropType  String 
ExamType  String 
endVar 

empty  ("temp3") 
tbl2.attach("temp3.db'') 
doDefault 
empty  ("firedrl3") 
examDatel  =date("01/01/00") 
examDate2=date("1 2/31/99") 
propType="GT" 
examType="OPPE" 

examDatel  .viewfEnter  start  date  (I.E.  01/01/95)") 
examDate2.viewC'Enter  end  date  (I.E.  01/01/95)") 
propType.viewC'Enter  (GT/STM/DSL)") 
switch 

case  propType="GT: 
case  propType="STM": 
case  propType="DSL": 
case  propType="/y_L": 
otherwise; 

msgStopC'Problem","The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  /U.L  only!") 
return 
endSwitch 

examT  ype.view("Enter  (OPPE/REOPPE/LOE/RELOE)”) 
switch 

case  examType="OPPE": 
case  examType="REOPPE": 
case  examType="LOE": 
case  examType="RELOE": 
otherwise: 

msgStop("Problem","The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only!") 
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return 

endSwitch 


if  propType="ALL"  then 
myQuery=Query 

ANSWER:  :PR1V:ANSWER.DB 

EXAM.DB  1  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  [ExarnType  \ 

I  _EG01  I  Check  >=~examDate1 ,  <=~examDate2|Check  =~examType  | 

SHIP.DB  I  ShipName  |  PropType  I 
I  Check  _EG02,  _EG01  |  Check  | 

FIREFIGH.DB  |  FireFig_Ship_ShipName_FK5  I  FireDrill3_Grade  IFireDrillCommentsl 
I  _EG02  I  Check  =SAT  jcheck| 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  lExamType  I 

I  _EG01  I  Check  >=~examDate1 ,  <=~examDate2|Check  =~ExamType  | 

SHIP.DB  I  ShipName  I  PropType  | 

I  Check  _EG02,  _EG01  I  Check  | 

FIREFIGH.DB  |  FireFig_Ship_ShipName_FK5  |  FireDrill1_Grade  |  FireDrill2_Grade  ] 

I  _EG02  I  Check  I  Check  | 

FIREFIGH.DB  \  FireDrill3_Grade  |FireDrillCommente| 

I  Check  =SAT  OR  =UNS|Check| 


EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  jExamType  | 

I  _EG01  I  Check  >=~examDate1 ,  <=~examDate2|Check  =~examType  | 

SHIP.DB  I  ShipName  |  PropType  I 

I  Check  _EG02,  _EG01  |  Check  =~propType| 

FIREFIGH.DB  |  FireFig_Ship_ShipName_FK5 1  FireDrill3_Grade  IFireDrillCommentsl 
I  _EG02  I  Check  =SAT  jcheckl 


EndQuery 
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Object : 


myQueryl  =Query 
ANSWER;  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  lExamType  | 

I  _EG01  I  Check  >=~examDate1 ,  <=~examDate2lCheck  =~ExamType  | 

SHIP.DB  I  ShipName  |  PropType  | 

I  Check  _EG02,_EG01  I  Check  =~proptype| 

FIREFIGH.DB  I  FireFig_Ship_ShipName_FK5  |  FireDrill1_Grade  |  FireDrill2_Grade  | 
|_EG02  [Check  [Check  [ 

FIREFIGH.DB  [  FireDrill3_Grade  [FlreDrillComments[ 

[  Check  =SAT  OR  =UNS[Check[ 


EndQuery 

endlf 

empty("fireDrl3") 

executeQBE(myQuery,  ''temp3.db") 
executeQBE(myQuery1 ,  "fireDrIB.db") 
tbl2.addC'firedrl3.db", "True", "False") 
tbl.attach("fireDrl3") 
tbl1  .attach  ("fireDrlB") 

numberOfSats=tbl.cCount("FireDrill3_Grade") 
msglnfo("Fire  Drill  Three", "The  total  number  of  sat  drills  are " 
+strVal(NumberOfSats)) 

TotalNumberOfDrills=tbl1.cCountC'FireDrill3_Grade") 
if  TotalNumberOfDrills  <>  0  then 
msglnfo("Fire  Drill  Three" ,"The  total  number  of  fire  drills  are  " 
+strVal(totalNumberOfDrills)) 
SatPercentage=(numberOfSatsAotalNumberOfDrills)*100 
msgInfoC'Fire  Drill  Three", "The  sat  fire  drill  percentage  is " 
+stiVal(satPercentage)) 

else 

msgStop("Problem",'The  total  number  of  drills  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openfpercent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentage 

tc.("PropType")=propType 

tc.("PropType1  ")=examType 

tc.("examDate1  ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box15.FIRE_DRILL_2_BUTTON 
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MethodName :  pushButton 


Source : 


method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 
tbl2  table 

numberOfSats  Number 
totalNumberOfDiills  Number 
satPercentage  Number 
myQuery  Query 
myQueryl  Query 
examDatel  Date 
examDate2  Date 
PropType  String 
ExamType  String 
endVar 
doDefault 
empty(''temp2") 
tbl2.attach("tenrip2.db") 
emptyC'firedrl2") 
examDatel  =dateC'01  /01  /OO") 
examDate2=date("1 2/31/99") 
propType="GT" 
examType="OPPE" 

examDatel  .viewC'Enter  start  date  (l.E.  01/01/95)") 
examDate2.viewC'Enter  stop  date  (l.E.  01/01/95)”) 
propType.viewC'Enter(GT/STM/DSL)") 
svritch 

case  propType="GT": 
case  propType="STM": 
case  propType="DSL": 
case  propType="ALL": 
otherwise: 

msgStopC'Problem","The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 

examType.viewC'Enter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case  examType="OPPE"; 
case  examType="REOPPE'': 
case  examType="LOE": 
case  examType="RELOE": 
otherwise: 

msgStop("Problem",'The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only!") 
return 
endSwitch 

if  propType="ALL"  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EX/\M.DB  1  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  |ExamType  | 
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I  _EG01 


I  Check  >=~examDate1 ,  <=~exannDate2|Check  =~examType  | 


SHIP.DB  I  ShipName  |  PropType  | 

I  Check  _EG02,  _EG01  |  Check  I 

FIREFIGH.DB  |  FireFig_Ship_ShipName_FK5 1  FireDriII2_Grade  |FireDrillComments| 
l_EG02  |Check=SAT  jcheck  | 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2 1  ExamlD_ExamEndDate  |ExamType  | 

I  _EG01  I  Check  >=~examDate1 ,  <=~examDate2|Check  =~^amType  | 

SHIP.DB  I  ShipName  |  PropType  | 

I  Check  _EG02,  _EG01  |  Check  | 

FIREFIGH.DB  |  FireFig_Ship_ShipName_FK5  |  FireDrill1_Grade  |  FireDrilI2_Grade  | 

I  _EG02  I  Check  |  Check  | 

FIREFIGH.DB  |  FireDrill3_Grade  lFireDrillComments| 

I  Check  [Check  | 


EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  I  ExamlD_ExamEndDate  [ExamType  [ 

I  _EG01  I  Check  >=~examDate1 ,  <=~examDate2| Check  =~examType  | 

SHIP.DB  I  ShipName  |  PropType  | 

I  Check  _EG02,_EG01  |  Check  =~propTypel 

FIREFIGH.DB  |  FireFig_Ship_ShipName_FK5  |  FireDrill2_Grade  |FireDrillComments| 
|_EG02  |Check=SAT  [Check  [ 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  [  ExamlD_Ship_ShipName_FK2  [  ExamlD_ExamEndDate  [ExamType  | 

[  _EG01  [  Check  >=~examDate1 ,  <=~examDate2[Check  =~ExamType  [ 

[  PropType [ 


SHIP.DB  [  ShipName 


160 


Object : 
MethodName 
Source : 


I  Check  _EG02,  _EG01  |  Check  =~proptype| 

FIREFIGH.DB  |  FireFig_Ship_ShipName_FK5  \  FireDrill1_Grade  |  FireDrill2_Grade  | 
I  _EG02  I  Check  I  Check  I 

FIREFIGH.DB  j  FireDrill3_Grade  |FireDrillComments| 

I  Check  ICheck  | 


EndQuery 

endlf 

executeQBE{myQuery,  "temp2.db'') 
executeQBE(myQuery1 ,  "fireDrlA.db") 
tbl2.add("firedrl2.db", "True", "False") 
tbl.attach("fireDrl2") 
tbl1  .attachC'fireDrlA") 

numberOfSats=tbl.cCount("FireDrill2_Grade") 
msgInfoC'Fire  Drill  Two", The  total  number  of  sat  drills  are " 
+strVal(NumberOfSats)) 

TotalNumberOfDrills=tbl1.cCountC'FireDrill2_Grade") 
if  TotalNumberOfDrills  <>  0  then 
msgInfoC'Fire  Drill  Two","The  total  number  of  fire  drills  are " 
+strVal(totalNumberC)fDrills)) 
SatPercentage=(numberOfSats/totalNumberOfDrills)*100 
msglnfo("Fire  Drill  Two","The  sat  fire  drill  percentage  is " 
+strVal(satPercentage)) 

else 

msgStop("Problem","The  total  number  of  drills  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.C'Percentage")=SatPercentage 

tc.fPropT ype")=propT ype 

tc.C'PropType1")=examType 

tc.C'examDatel  ")=examDate1 

tc.fexamDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box15.FIRE_DRILL_1_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 
tbl2  table 

numberOfSats  Number 
totalNumberOfDrills  Number 
satPercentage  Number 
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myQuety  Query 
myQueryl  Query 
examDatel  Date 
examDate2  Date 
PropType  String 
ExamType  String 
endVar 
doDefault 
empty  ("tempi") 
tbi2.attach("temp1  .db") 
examDatel  =date("01/01/00") 
examDate2=dateC'  1 2/31/99") 
propType="GT" 
examf ype="OPPE" 

examDatel  .viewfEnter  start  date  (I.E.  01/01/95)") 
examDate2.view("Enter  stop  date  (I.E.  12/12/99)") 
propType.viewC’Enter  (GT/STM/DSL)") 
switch 

case  propType="GT"; 
case  propType=”STM": 
case  propType="DSL": 
case  propType="ALL": 
otherwise: 

msgStop("Problem","The  choices  for  Propulsion  Type  are  GT.  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 

examType.view("Enter(OPPE/REOPPEA.OE/RELOE)") 

switch 

case  examType="OPPE": 
case  examType="REOPPE": 
case  examType="LOE": 
case  examType="RELOE": 
othenwise: 

msgStop("Problem","The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only!") 
return 
endSwitch 

if  propType="ALL"  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EX/\M.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  1  ExamType  | 

I  _EG01  1  Check  >=~examDate1 ,  <=~examDate21  Check  =~examTypeI 

FIREFiGH.DB  |  FireFig_Ship_ShipName_FK5  |  FireDrill1_Grade  | 

1_EG02,_EG01  |Check=SAT  | 

FIREFIGH.DB  |  FireDrillComments  | 

I  Check  I 

SHIP.DB  I  ShipName  |  PropType  | 

I  Check_EG02  I  Check  | 


EndQuery 
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myQueryl  =Query 
ANSWER:  :PRIV:ANSWER.DB 


EXAM.DB  I  ExamID_Ship_ShipName_FK2  1  ExamlD_ExamEndDate  [ExarnType  | 

1  _EG01  I  Check  >=~examDate1 ,  <=~examDate2|Check  =~examType| 

SHIP.DB  I  ShipName  |  PropTypej 
lCheck_EG02,_EG01  ICheck  | 

FIREFIGH.DB  I  FireFig_Ship_ShipName_FK5  I  FireDrill1_Grade  |  FireDrill2_Grade  I 
l_EG02  ICheck  I  Check  | 

FIREFIGH.DB  |  FireDrill3_Grade  I  FireDrillComments  | 

I  Check  I  Check  I 


EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  I  ExarnType  I 

I  _EG01  I  Check  >=~examDate1 ,  <=~examDate2|  Check  =~examType| 

FIREFIGH.DB  I  FireFig_Ship_ShipName_FK5  I  FireDrill1_Grade  | 

1_EG02,_EG01  lCheck=SAT  I 

FIREFIGH.DB  |  FireDrillCommente  I 
I  Check  I 

SHIP.DB  I  ShipName  |  PropType  | 

I  Check  _EG02  (  Check  =~propTypel 


EndQuery 

myQueryl  =Query 

ANSWER:  :PRIVA^NSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  |ExamType  | 

1  _EG01  I  Check  >=~examDate1 ,  <=~examDate2|Check  =~examType| 

SHIP.DB  I  ShipName  |  PropType  | 

I  Check  _EG02,  _EG01  |  Check  =~propTypel 

FIREFIGH.DB  |  FireFig_Ship_ShipName_FK5  |  FireDrill1_Grade  |  FireDrill2_Grade  | 
l_EG02  ICheck  ICheck  I 

FIREFIGH.DB  |  FireDrill3_Grade  |  FireDrillComments  | 

I  Check  I  Check  | 
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MethodName : 
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EndQuery 

endlf 

doDefault 

emptyC'fireDrII") 

executeQBE(myQuery, "tempi  .db") 
executeQBE(myQuery1 ,  "fireDrIA.db") 
tbl2.addC’fireDrI1", True", "False") 
tbI.attachC'fireDrII") 
tbil  .attachC'fireDrIA") 

numberOfSate=tbl.cCount("FireDrill1_Grade") 
msgInfoC'Fire  Drill  One", The  total  number  of  sat  drills  are " 
+strVal(NumberOfSats)) 

TotalNumberOfDrills=tbl1.cCount("FireDrill1_Grade") 

If  TotalNumberOfDiills  <>  0  then 
msgInfoC'Fire  Drill  One","The  total  number  of  fire  drills  are " 
+strVal(totalNumberOfDrills)) 
SatPercentage=(numberOfSate/totalNumberOfDrills)*100 
msgInfoC'Fire  Drill  One","The  sat  fire  drill  percentage  is " 
+stiVal(satPercentage)) 

else 

msgStop("Problem","The  total  number  of  drills  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc-insertRecordO 

tc.("Percentage")=SatPercentage 

tc.rPropType")=propType 

tc.fPropTypel  ")=examType 

tc.C'examDatel  ")=examDate1 

tc.C'examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.RESET_GRAPH_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  Tcursor 
endVar 

tc.openC'percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endmethod 
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Object : 
MethodName : 
Source : 


Object : 
MethodName : 
Source ; 


HIGH_POWER_DEMO_QUERY 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
var 

tcTcursor 
examMenu  Menu 
ReportPop  PopUpMenu 
AddPoP  PopUpMenu 
PrintPop  PopUpMenu 
endVar 

if  eventlnfoJsPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 


else 

;  This  code  executes  only  for  the  form. 


PrintPop.addText("&High  Power  Report") 
PrintPop.addT  ext("&Graph") 

ReportPop.addT  ext("&View") 

ReportPop.addPopUpf&Prinf  .PrintPoP) 

examMenu.addPopUpC'&Report",  ReportPoP) 

examMenu  .addT  ext("&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

tc.openC'percenf) 

tc.editO 

tc.emptyO 

tc.endEditO 

endif 

endmethod 


HIGH_POWER_DEMO_QUERY 
menu  Action 

method  menuAction(var  eventinfo  MenuEvent) 
var 

myRep  Report 
reply  String 
m  menu 
endVar 

if  eventInfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 


Switch 


else 

;  This  code  executes  only  for  the  form. 

case  eventInfo.menuChoiceO  ="&\/iew": 
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Object : 
MethodName : 
Source : 


myRep.open("HighPwr",  WinStyleMaximize) 

hideSpeedBarQ 

m.addText("") 

m.showO 

case  eventInfo.menuChoiceO  ="&High  Power  Report": 

myRep.printC'HighPwr") 
case  eventInfo.menuChoiceO  ="&Graph": 

myRep.printC'HiPwr") 
case  eventInfo.menuChoiceO  =''&Help"; 

case  eventInfo.menuChoiceO  ="&Quit"; 
reply=msgQuestion("Quit","Are  you  sure  you  want  to  leave  this  form?") 
If  reply  =  "Yes"  then 
closeO 
else 
return 
endlf 

endSwitch 

endif 

end  method 


#Page2 

setFocus 

method  setFocus(var  eventinfo  Event) 
var 

examMenu  Menu 
ReportPop  PopUpMenu 
AddPoP  PopUpMenu 
PrintPop  PopUpMenu 
endVar 

PrintPop.addTextf&High  Power  Reporf) 
PrintPop.addText("&Graph") 

ReportPop.addT  ext("&View") 

ReportPop.addPopUpC'&Prinf.PrintPoP) 

examMenu. addPopUpf&Report",  ReportPoP) 

examMenu  .addT  ext("&Qult") 

examMenu. showO 

maximizeO 

hideSpeedBarO 

endmethod 


#Page2.#Box7.LlST_SHIPS_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableView 
endVar 


newView.openC'Highpwr") 
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endmethod 


Object : 
MethodName : 
Source : 


#Page2.#Box7.HIGH_PWR_DEMO_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 

numberOfSats  Number 
totalNumberOfGrades  Number 
SatPercentage  Number 
myQuery  Query 
myQueryl  Query 
examDatel  Date 
examDate2  Date 
PropType  String 
endvar 
dodefault 

examDatel  =dateC'01  /01  /OO") 
examDate2=date(”1 2/31/99") 
propType="GT" 

examDatel  .vie\w("Enter  start  date  (I.E.  01/01/95)”) 
examDate2.view(''Enter  the  stop  date  (I.E.  01/01/95") 
propType.viewC'Enterthe  prop  type  (GT/STM/DSL)") 

Switch 

case  propType="GT": 
case  propType="STM": 
case  propType="DSL”: 
case  propType="ALL": 
otherwise: 

msgStop("Problem","Your  choice  must  be  either  GT,  STM,  DSL  or  ALL.") 
return 
endSwitch 

if  propType=”ALL”  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

MATERIAL.DB  |  MatlD_Ship_ShipName_FK4  |MatlD_ExamEndDate  |  HighPwrDemoGrade  1 

HighPwrComments  | 

|_EG02  |Check>=~examDate1,<=~examDate2|  Check  =SAT  1  Check  1 

SHIP.DB  I  ShipName  |  PropType] 

|Check_EG02|Check  | 


EndQuery 
myQueryl  =Query 
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ANSWER:  :PRIV:ANSWER.DB 


MATERIAL.DB  1  MatlD_Ship_ShipName_FK4  |  MatlD_ExamEndDate  IHighPwrDemoGrade  | 

HighPwrComments  j 

I  _EG02  1  Check  >=~examDate1 ,  <=~examDate2|Check  |  Check  | 

SHIP.DB  I  ShipName  |  PropType| 

|Check_EG02|Check  | 


EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIV:ANSWER.DB 

MATERIAL.DB  |  MatiD_Ship_ShipName_FK4  |MatlD_ExamEndDate  |  HighPwrDemoGrade  | 

HighPwrComments  | 

I  _EG02  ICheck  >=~examDate1 ,  <=~examDate2|  Check  =SAT  |  Check  I 

SHIP.DB  I  ShipName  |  PropType  I 
I  Check  _EG02  |  Check  =~propType| 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

MATERIAL.DB  |  MatlD_Ship_ShipName_FK4  |  MatlD_ExamEndDate  IHighPwrDemoGrade  | 

HighPwrComments  | 

I  _EG02  I  Check  >=~examDate1 .  <=~examDate2|Check  |  Check  | 

SHIP.DB  I  ShipName  |  PropType  | 

I  Check  _EG02  I  Check  =~propType| 


EndQuery 

endlf 

emptyC'Highpwr") 
emptyC’Highpwrt ") 
executeQBE(myQuery,  "Highpwr.db") 
executeQBE(myQuery1 ,  "Highpwrt  .db") 

tbl.attach("Highpwr") 
tbl1  .attach("Highpwr1 ") 

numberOfSats=tbl.cCount("HighPwrDemoGrade") 

msglnfoCNumber  of  Sats",  "The  total  number  of  sat  high  power  demos  are " 
+strVal(numberOfSats)) 

totalNumberOfGrades=tbl1.cCountf  HighPwrDemoGrade") 
if  TotalNumberOfGrades  <>  0  then 

msglnfoC'Total  Number  of  Grades",  "The  total  number  of  high  power  demos  are " 
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Object : 
MethodName : 
Source : 


+strVal(totalNumberOfGrades)) 
SatPercentage=(NumberOfSats/TotalNumberOfGrades)*1 00 
msglnfoC'Sat  Percentage", 'The  high  power  demo  sat  percentage  is " 
+sttVal(SatPercentage)) 

else 

msgStopC'Problem","The  total  number  of  grades  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.C'Percentage")=SatPercentage 

tc.fPropType'^propType 

tc.(”examDate1 '^examDatel 

tc.C'examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box7.RESET_GRAPH_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tcTcursor 

endVar 

tc.openC'percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endmethod 
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Object : 
MethodName ; 
Source : 


Object : 
MethodName ; 
Source ; 


OPPE_LOE_AREA_QUERY 

Const 

Const 

ViewUnsatOPPE=301 

ViewUnsatOperation=302 

ViewUnsatFireFighting=303 

ViewUnsatMaterial=304 

ViewU  nsatT  raining=305 

ViewUnsatProgramManagment=306 

ViewU  nsatLOE=325 

\/iewSatOPPE=307 

ViewSatOperation=308 

\/iewSatFireFighting=309 

\/iewSatMaterial=31 0 

ViewSatT  raining=31 1 

ViewSatProgramManagement=31 2 

\/iewSatLOE=326 

PrintUnsatOPPE=31 3 

PrintUnsatOperation=31 4 

PrintUnsatFireFighting=31 5 

PrintU  nsatMaterial=31 6 

PrintUnsatT  raining=31 7 

PrintUnsatProgramManagment=31 8 

PrintU  nsatLOE=327 

PrintSatOPPE=319 

PrintSatOperation=320 

PrintSatFireFighting=321 

PrintSatMaterial=322 

PrintSatT  raining=323 

PrintSatProgramManagement=324 

PrintSatLOE=328 

endConst 


OPPE_LOE_AREA_QUERY 

arrive 

method  arrive(var  eventlnfo  MoveEvent) 
var 

tc  Tcursor 

examMenu,  View,  Print,  ReportMenu  Menu 

ReportPop  PopUpMenu 

AddPoP  PopUpMenu 

PrintPop  PopUpMenu 

ViewPop  PopUpMenu 

ViewSatPop  PopUpMenu 

ViewUnsatPop  PopUpMenu 

PrintSatPop  PopUpMenu 

PrintUnsatPop  PopUpMenu 

examtype  PopupMenu 

endVar 

if  eventlnfo-isPreFilterO 
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then 

;  This  code  executes  for  each  object  on  the  form. 

else 

:  This  code  executes  only  for  the  form. 

ViewUnsatPop.addText("&OPPE  Percentage",""  .ViewUnsatOppe) 
ViewUnsatPop.addTextrOp&eration  Percentage"  ,"",ViewUnsatOperation) 
ViewUnsatPop.addTextf&Fire  Fighting  Percentage","" .ViewUnsatFireFighting) 
ViewUnsatPop.addTextf&Material  Percentage","",\/iewUnsatMaterial) 
ViewUnsatPop.addTextC&Training  Percentage","",ViewUnsatTraining) 

ViewUnsatPop.addTextr&Program  Management  Percentage","" ,ViewUnsatProgramManagment) 
ViewUnsatPop.addTextf&LOE  Percentage","" .ViewUnsatLOE) 

ViewSatPop.addTextC'&OPPE  Percentage","",ViewSatOppe) 

ViewSatPop.addTextrOp&eration  Percentage", "",ViewSatOperation) 

ViewSatPop.addTextf&Fire  Fighting  Percentage","",\/iewSatFireFighting) 
ViewSatPop.addTextC&Material  Percentage","",\/iewSa1Material) 

ViewSatPop.addTextf&Training  Percentage" ,"",ViewSatTraining) 

ViewSatPop.addTextr&Program  Management  Percentage","",ViewSatProgramManagement) 

ViewSatPop.addT  extf  &LOE  Percentage","",VlewSatLOE) 

PrintUnsatPop.addTextC'&OPPEPercentage","",PrintUnsatOppe) 
PrintUnsatPop.addTextfOp&eration  Percentage" ,"",PrintUnsatOperation) 
PrintUnsatPop.addTextC'&Fire  Fighting  Percentage","",PrintUnsatFireFighting) 
PrintUnsatPop.addTextr&Material  Percentage","",PrintUnsatMaterial) 
PrintUnsatPop.addTextC'&Training  Percentage", "".PrintUnsatTraining) 

PrintUnsatPop.addTextC'&Program  Management  Percentage","",PrintUnsatProgramManagment) 
PrintUnsatPop.addTextC&LOEPercentage","",PrintUnsatLOE) 

PrintSatPop.addTextC'&OPPE  Percentage","",PrintSatOppe) 

PrintSatPop.addTextfOp&eration  Percentage" ,"",PrintSatOperation) 

PrintSatPop.addT extf&Fire  Fighting  Percentage","", PrintSatFireFighting) 
PrintSatPop.addTextf&Material  Percentage" ,"",PrintSatMaterial) 

PrintSatPop.addTextf  &Training  Percentage","",PrintSatT raining) 

PrintSatPop.addTextr&Program  Management  Percentage","", PrintSatProgramManagement) 
PrintSatPop.addTextr&LOE  Percentage","",PrintSatLOE) 

PrintPop.addT  ext("&Graph") 

PrintPop.addPopUpC'&Sat",PrintSatPop) 

PrintPop.addPopUp("&Unsat",PrintUnsatPop) 


ViewPop.addPopUpC'&Sat",ViewSatPop) 

ViewPop.addPopUp("&Unsaf,ViewUnsatPop) 

examMenu.addPopUpC&\/iew",\/iewPop) 

examMenu.addPopUP("&Print",  PrintPop) 

examMenu.addT  extC'&Quit") 

examMenu-showO 

maximizeO 

hideSpeedBarO 

tc.open("  percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endif 
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endmethod 


Object : 
Method  Name : 
Source : 


OPPE_LOE_AREA_QUERY 

menuAction 

method  menuAction(var  eventinfo  MenuEvent) 
var 

myRep  Report 
reply  String 
choiceld  Smallint 
m  menu 
endVar 

choiceld=eventlnfo.idO 

if  eventInfo.isPreFilterO 
then 

:  This  code  executes  for  each  object  on  the  form. 


else 

;  This  code  executes  only  for  the  form. 


Switch 

case  eventInfo.menuChoiceO  =''&Graph"; 
myRep.printC'OppeSum") 
case  eventInfo.menuChoiceO  ="&Help": 
case  eventInfo.menuChoiceO  =''&Quit"; 
reply=msgQuestionC’Quit","Are  you  sure  you  want  to  leave  this  form?") 
If  reply  =  "Yes"  then 
closeO 
else 
return 
endlf 
endSwitch 
Switch 

case  choiceld  =ViewSatOppe: 
myRep.openC'oppeperc",  WinStyleMaximize) 
hideSpeedBarO 
m.addTextC") 
m.showO 

case  choiceld  =ViewSatOperation: 
myRep.openC'operperc",  WinStyleMaximize) 

hideSpeedBarO 

m.addTextC") 

m.showO 

case  choiceld  =ViewSatFireFighting: 
myRep.openC'FireFigh",  WinStyleMaximize) 

hideSpeedBarO 

m.addTextC") 

m.showO 

case  choiceld  =\/iewSatMaterial: 
myRep.openC'Matperc",  WinStyleMaximize) 

hideSpeedBarO 

m.addTextC") 
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m.showO 

case  choiceld  =ViewSatT raining  : 
myRep.openfTraining",  WinStyleMaximize) 
hideSpeedBarO 
m.addText("") 
m.showO 

case  choiceld  =ViewSatProgramManagement: 
myRep.open("ProgramM",  WinStyleMaximize) 

hideSpeedBarO 

m.addTexlC"') 

m.showO 

case  choicelD  =ViewSatLOE: 
myRep.openC'LoeSum",  WinStyleMaximize) 

hideSpeedBarO 

m.addText("") 

m.showO 

case  choiceld  =ViewUnsatOPPE: 
myRep.openC’oppeperl ",  WinStyleMaximize) 
hideSpeedBarO 
m.addTextC") 
m.showO 

case  choiceld  =ViewUnsatOperation: 
myRep.open("operper1 ",  WinStyleMaximize) 
hideSpeedBarO 
m.addText("") 
m.showO 

case  choiceld  =ViewUnsatFireFighting: 
myRep.openfFireFigl ",  WinStyleMaximize) 
hideSpeedBarO 
m.addTextf") 
m.showO 

case  choiceld  =ViewUnsatMaterial: 
myRep.openC'Matperl ",  WinStyleMaximize) 
hideSpeedBarO 
m.addTextC") 
m.showO 

case  choiceld  =ViewUnsatTraining; 
myRep.openfT rainini ",  WinStyleMaximize) 
hideSpeedBarO 
m.addTextC") 
m.showO 

case  choiceld  =  ViewUnsatProgramManagment: 
myRep.openC'Programl ",  WinStyleMaximize) 
hideSpeedBarO 
m.addTextC") 
m.showO 

case  choiceld  =  ViewUnsatLOE: 
myRep.openC'LoeSuml ",  WinStyleMaximize) 
hideSpeedBarO 
m.addTextC") 
m.showO 

case  choiceld  =PrintSatOppe: 

myRep.printC'oppeperc") 
case  choiceld  =PrintSatOperation: 
myRep.printCoperperc") 
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case  choiceld  =PrintSatFireFighting; 
myRep.print("FireFigh") 
case  choiceld  =PrintSatMaterial: 

myRep.printC'Matperc") 
case  choiceld  =PrintSatTraining : 
myRep.printC'T  raining") 
case  choiceld  =PrintSatProgramManagement: 

myRep.printC'ProgramM") 
case  choiceld  =PrintSatLOE: 
myRep.printC'LoeSum") 
case  choiceld  =PrintUnsatOPPE: 

myRep.printC'oppeperl ") 
case  choiceld  =PrintUnsatOperation: 
myRep.printfoperperl ") 
case  choiceld  =PrintUnsatFireFighting: 
myRep.printfFireFig  1 ") 
case  choiceld  =PrintUnsatMaterial; 
myRep.printCMatperl ") 
case  choiceld  =PrintUnsatTraining: 
myRep.printfT  rainin! ") 

case  choiceld  =  PrintUnsatProgramManagment: 
myRep.printC'Programl ") 
case  choiceld  =  PrintUnsatLOE: 
myRep.print("LoeSum1 ") 
endSwitch 
endif 

endmethod 


#Page2 

setFocus 

method  setFocus(var  eventinfo  Event) 
var 

examMenu,  View,  Print,  ReportMenu  Menu 

ReportPop  PopUpMenu 

AddPoP  PopUpMenu 

PrintPop  PopUpMenu 

ViewPop  PopUpMenu 

ViewSatPop  PopUpMenu 

ViewUnsatPop  PopUpMenu 

PrintSatPop  PopUpMenu 

PrintUnsatPop  PopUpMenu 

examtype  PopupMenu 

endVar 

ViewUnsatPop.addText("&OPPE  Percentage",'"’, ViewUnsatOppe) 
ViewUnsatPop.addTextfOp&eration  Percentage","",ViewUnsatOperation) 
ViewUnsatPop.addText("&Fire  Fighting  Percentage","", ViewUnsatFireFighting) 
ViewUnsatPop.addTextf&Material  Percentage","",ViewUnsatMaterial) 
ViewUnsatPop.addTextf&T raining  Percentage", "",\/iewUnsatT raining) 

ViewUnsatPop.addTextf&Program  Management  Percentage","" .ViewUnsatProgramManagment) 
ViewUnsatPop.addTextf&LOE  Percentage","",ViewUnsatLOE) 

ViewSatPop.addText("&OPPE  Percentage",""  ,ViewSatOppe) 
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Object : 


ViewSatPop.addTextC'Op&eration  Percentage", "".ViewSatOperation) 

ViewSatPop.addTextC&Fire  Fighting  Percentage", "".ViewSatFireFighting) 
ViewSatPop.addTextC'&Material  Percentage","".ViewSatMaterial) 

ViewSatPop.addTextC'&Training  Percentage","",ViewSatTraining) 

ViewSatPop.addTextr&Program  Management  Percentage" ,"",ViewSatProgramManagement) 
ViewSatPop.addText("&LOE  Percentage"  ,"",ViewSatLOE) 

PrintUnsatPop.addTextC&OPPE  Percentage", "",PrintUnsatOppe) 
PrintUnsatPop.addTexirOp&eration  Percentage","",PrintUnsatOperation) 
PrintUnsatPop.addTextC&Fire  Fighting  Percentage" ,"",PrintUnsatFireFighting) 
PrintUnsatPop.addTextC'&Material  Percentage","",PrintUnsatMaterial) 
PrintUnsatPop.addTextC'&Training  Percentage","", PrintUnsatTraining) 

PrintUnsatPop.addTextr&Program  Management  Percentage","",PrintUnsatProgramManagment) 
PrintUnsatPop.addTextC&LOE  Percentage"  ,"",PrintUnsatLOE) 

PrintSatPop.addText("&OPPE  Percentage","",PrintSatOppe) 
PrintSatPop.addTextC'Op&erationPercentage","",PrintSatOperation) 

PrintSatPop.addTextC&Fire  Fighting  Percentage","",PrintSatFireFighting) 
PrintSatPop.addTextr&Material  Percentage","",PrintSatMaterial) 

PrintSatPop.addTextf&Training  Percentage", "",PrintSatTraining) 

PrintSatPop.addTextf&Program  Management  Percentage","",PrintSatProgramManagement) 
PrintSatPop.addText("&LOEPercentage","",PrintSatLOE) 

PrintPop.addText("&Graph") 

PrintPop.addPopUpC'&Sat",PrintSatPop) 

PrintPop.addPopUpC&Unsar,PrintUnsatPop) 


ViewPop.addPopUpC'&Sat",ViewSatPop) 

\/iewPop.addPopUpC'&Unsat",\/iewUnsatPop) 

exa  mMenu.addPopUpC &View" ,  ViewPop) 

examMenu.addPopUPf&Print",  PrintPop) 

examMenu.addTextC'&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

endmethod 


#Page2.RESET_GRAPH_BUTTON 
;  pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  Tcursor 
endVar 

tc.openC'percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endmethod 


#Page2.#Box22.#Button34 
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MethodName ;  pushButton 


Source ; 


Object : 
MethodName : 
Source : 


method  pushButton(var  eventinfo  Event) 
var 

new^View  tableView 
choice  string 
endVar 
choice="SAr 

choice  .viewC'Enter  SAT  or  UNS  to  view  the  list  of  ships") 
switch 

case  choice="SAT":  newView.openC'oppeSum") 
case  choice="UNS":  newView.openC'oppeSum2") 
otherwise: 

msgStop("Problem","The  choices  for  Exam  grade  are  SAT,  or  UNS  only!") 
return 
endSwitch 
endmethod 


#Page2.#Box22.#Button32 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 

numberOfSatsOppe  Number 
totalNumberOfOppe  Number 
satPercentageOppe  Number 
myQuery  Query 
myQueryl  Query 
myQuery2  Query 
exam  Date  1  Date 
examDate2  Date 
propType  String 
examType  String 
endVar 
doDefault 

examDatel  =date("01  /01  /OO") 
examDate2=date("12/31/99") 
propType="GT'' 

examDatel  .viewC'Enter  start  date  (I.E.  01/01/95)") 
examDate2.viewCEnter  stop  date  (I.E.  01/01/95)") 
propType.view("Enter  prop  type  (GT/STM/DSL)") 
s\Mtch 

case  propType="GT": 
case  propType="STM": 
case  propType="DSL": 
case  propType="ALL": 
otherwise: 

msgStop("Problem","The  choices  for  Propulsion  Type  are  GT,  STM,  DSL  or  ALL  only!") 
return 
endSwitch 
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if  propType="ALL''  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  1  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  lExamType  1 

OverallFinding  | 

I  Check  _EG01  |  Check  >=~examDate1 ,  <=~examDate2|Check  =LOE  |  Check  =SAT  OR 

=EXC  OR  =GOOD| 

SHIP.DB  I  ShipName  |  PropType  | 

|_EG01  ICheckl 


EndQuety 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamID_ExamEndDate  |ExamType  | 

OverallFinding  | 

I  Check  _EG01  |  Check  >=~examDate1 ,  <=~examDate2|Check  =LOE  |  Check  =SAT  OR 

=UNS  OR  =GOOD  OR  =EXCl 

SHIP.DB  I  ShipName  |  PropType  I 
I  _EG01  I  Check  | 


EndQuery 

myQuery2=Queiy 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  |ExamType  | 

OverallFinding  | 

I  Check  _EG01  I  Check  >=~examDate1 ,  <=~examDate2|Check  =LOE  |  Check  =UNS  | 

SHIP.DB  I  ShipName  |  PropType  | 

|_EG01  ICheckl 


EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIVANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  lExamType  I 

OverallFinding  | 

I  Check  _EG01  |  Check  >=~examDate1 ,  <=~examDate2|Check  =LOE  |  Check  =SAT  OR 

=EXC  OR  =GOOD| 
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SHIP.DB  I  ShipName  1  PropType 
1  _EG01  I  Check  =~propTypel 


EndQuery 


myQueryl  =Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  1  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  |ExamType  | 

OverallFinding  I  .  «A-r /-m-, 

I  Check  _EG01  |  Check  >=~examDate1 ,  <=~examDate2|Check  =LOE  |  Check  =SAT  OR 

=UNS  OR  =GOOD  OR  =EXC| 


SHIP.DB  I  ShipName  |  PropType  I 
I  _EG01  I  Check  =~propType| 


EndQuery 

myQuery2=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  |ExamType  | 

OverallFinding  |  .  . 

I  Check  _EG01  |  Check  >=~examDate1 ,  <=~examDate2|Check  =LOE  I  Check  =UNS  | 

SHIP.DB  I  ShipName  |  PropType  I 
I  _EG01  I  Check  =~propType| 


EndQuery 

endlf 

emptyC'OppeSum") 
empty("OppeSum1") 
empty(’'OppeSum2") 
executeQBE(myQuery,"OppeSum.db") 
executeQBE(myQuery1 ,  "OppeSuml  .6b”) 
executeQBE(myQuer^,  "OppeSum2.db") 
tbl.attachC'OppeSum") 
tbil  .attachC'OppeSumI ") 

numberOfSatsOppe=tbl.cCount("OveraIlFinding") 
msglnfo("LOE”,"The  total  number  of  sats  are  " 
+strVal(NumberOfSatsOppe)) 
TotalNumberOfOppe=tbl1.cCount(’’OverallFinding") 
if  TotalNumberOfOppe  <>  0  then 
msglnfoC'LOE","The  total  number  is " 

+strVal(totalNumberOfOppe)) 

SatPercentageOppe=(numberOfSatsOppe/totalNumberOfOppe)*100 
msglnfoC'LOE","The  sat  percentage  is " 

+strVal(satPercentageOppe)) 
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Object : 
MethodName 
Source : 


else 

msgStop("Problem","The  total  number  of  LOE's  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tcJnsertRecordO 

tc.("Percentage")=SatPercentageOppe 

tc.C'PropType")='’LOE" 

tc.("examDate1  ")=examDate1 

tc.C'examDate2'’)=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box22.PM_LIST_SHIPS_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableView 
choice  string 
endVar 
choice="SAT" 

choice.viewC'Enter  SAT  or  UNS  to  view  the  list  of  ships") 
switch 

case  choice="SAT":  new\/iew.open("Program2") 
case  choice="UNS":  newView.open("Program3") 
othenvise; 

msgStop("Problem","The  choices  for  Exam  grade  are  SAT,  or  UNS  only!") 
return 
endSwitch 
endmethod 


#Page2.#Box22.0P_LIST_SHIPS_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableView 
choice  string 
endVar 
choice="SAT" 

choice.viewC'Enter  SAT  or  UNS  to  view  the  list  of  ships") 
switch 

case  choice="SAT":  newView.open("opSum") 
case  choice="UNS":  newView.openC'opSum2") 
otherwise; 

msgStop("Problem","The  choices  for  Exam  grade  are  SAT,  or  UNS  only!") 
return 
endSwitch 
endmethod 
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Object ; 
MethodName : 
Source : 


#Page2.#Box22.0PPE_LIST_SHIPS_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableView 
choice  string 
endVar 
choice="SAT" 

choice.viewC’Enter  SAT  or  UNS  to  view  the  list  of  ships") 
switch 

case  choice="SAr';  newView.openC'oppeSum") 
case  choice="UNS":  newView.openC'oppeSum2") 
othenwise: 

msgStop("Problem","The  choices  for  Exam  grade  are  SAT,  or  UNS  only!") 
return 
endSwitch 
endmethod 


#Page2.#Box22.PM_PERCENT_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

to  tCursor 
tbi  table 
tbl1  table 

numberOfSatsProgramGrades  Number 

totalNumberOfProgramGrades  Number 

satPercentageProgramGrades  Number 

myOuery  Query 

myQueryl  Query 

myQuer^  Query 

examDatel  Date 

examDate2  Date 

PropType  String 

examType  String 

endVar 

doDefault 

examDatel  =date("01/01/00") 
examDate2=date("1 2/31/99") 
propType="GT" 
examType="OPPE" 

examDatel  .view("Enter  start  date  (I.E.  01/01/95)") 
examDate2.view("Enter  stop  date  (I.E.  01/01/95)") 
propType.viewC'Enter  prop  type  (GT/STM/DSL)") 
switch 

case  propType="GT': 
case  propType="STM": 
case  propType="DSL": 
case  propType="ALL": 
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otherwise: 

msgStop("Problem",'The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 

examType.viewC'Enter  (OPPE/REOPPE/LOE/RELOE)") 
switch 

case  examType="OPPE": 
case  examType="REOPPE'': 
case  examType- ’LOE": 
case  examType="RELOE": 
othenwise: 

msgStopC'Problem","The  choices  for  Propulsion  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only!  ) 
return 
endSwitch 

if  propType="ALL"  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  1  ExamlD_Ship_ShipName_FK2  |  ExamType  1 
I  _EG01  I  Check  =~examTypel 

SHIP.DB  I  ShipName  IPropType  | 

I  _EG02,  _EG01  ICheckl 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6 1  PMJD_ExamEndDate 
IProgramManageGrade  | 

I  Check_EG02  I  Check  >=~examDate1 ,  <=~examDate2l  Check  =EXC  OR  =GOOD  OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  [PropType  | 

I  _EG02,  _EG01  ICheck  I 

PROGRAMM.DB  I  PM_ID_Ship_ShipName_FK6  |  PMJD_ExamEndDate 
IProgramManageGrade  | 

I  Check_EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT  OR  =UNSl 


EndQuery 

myQuery2=Query 

ANSWER:  :PRIV:ANSWER.DB 
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EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  IPropType  | 

I  _EG02,  _EG01  ICheck  | 

PROGRAMM.DB  |  PM_ID_Ship_ShipName_FK6  |  PMJD_ExamEndDate 
|ProgramManageGrade| 

I  Check  _EG02  I  Check  >=~examDate1 ,  <=~examDate2lCheck  =UNS 


EndQuery 

else 


myQuery=Query 

ANSWER:  :PRlV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2 1  ExamType 
I  _EG01  I  Check  =~examType| 


SHIP.DB  I  ShipName  IPropType  | 

I  _EG02,  _EG01  ICheck  =~propType| 

PROGRAMM.DB  |  PM_ID_Ship_ShipName_FK6  |  PMJD_ExamEndDate 
IProgramManageGrade  | 

I  Check_EG02  |  Check  >=~examDate1 ,  <=~examDate2|  Check  =EXC  OR  =GOOD  OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  IPropType  | 

I  _EG02,  _EG01  ICheck  =~propType| 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6  |  PM_ID_ExamEndDate 
IProgramManageGrade  | 

I  Check_EG02  |  Check  >=~examDate1 ,  <=-examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT  OR  =UNS| 


EndQuery 

myQuery2=Query 

ANSWER:  :PRIV:ANSWER.DB 
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EXAM.DB  I  ExamlD_Ship_ShipName_FK2  \  ExamType  | 

I  _EG01  I  Check  =-'examType| 

SHIP.DB  I  ShipName  jPropType  | 

I  _EG02,  _EG01  [Check  =~propTypel 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6  |  PM_ID_ExamEndDate 
|ProgramManageGrade| 

I  Check _EG02  j  Check  >=~examDate1 ,  <=~examDate2|Check  =UNS 


EndQuery 
end  If 

empty("Program1") 

emptyC’P''ogram2") 

empty("Program3") 

executeQBE{myQuery,  "Program2.db") 
executeQBE(myQuery1 ,  "Programi  .db") 
executeQBE(myQuery2,  "ProgramS.db") 
tbi  .attach  (''Program2") 
tbl1  .attachC'Programl") 

numberOfSatsProgramGrades=tbl.cCountC'ProgramManageGrade") 
msglnfoC'Program  Management", "The  total  number  of  sats  are " 
+strVal(NumberOfSatsProgramGrades)) 
TotalNumberOfProgramGrades=tbl1.cCountC'ProgramManageGrade") 
if  totalNumberOfProgramGrades  <>  0  then 
msgInfofProgram  Management", "The  total  number  of  grades  are " 
+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 
msglnfoC'Program  Management" ,"The  sat  percentage  is " 

+strVal(satPercentageProgramGrades)) 

else 

msgStop("Problem","The  total  number  of  programGrades  is  0,  you  cannot  divide  by  01") 
return 
endlf 

tc.openC'percenr) 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.C’PropType")="PGM" 

tc.("examDate1  ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box22.TRAIN_LIST_SHIPS_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newVie\w  tableView 
choice  string 
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endVar 

choice="SAT" 

choice.viewC’Enter  SAT  or  UNS  to  view  the  list  of  ships") 
switch 

case  choice="SAT":  newN/iew.openC'train") 
case  choice="UNS":  new\/iew.open("train2") 
otherwise: 

msgStop("Problem",’The  choices  for  Exam  grade  are  SAT,  or  UNS  only!") 
return 
endSwitch 
endmethod 


#Page2.#Box22.TRAINING_PERCENT_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 

numberOfSatsTrainGrades  Number 

totalNumberOfTrainGrades  Number 

satPercentageT rainGrades  Number 

myQuery  Query 

myQueryl  Query 

myQuer^  Query 

examDatel  Date 

examDate2  Date 

PropType  String 

ExamType  String 

endVar 

doDefault 

examDatel  =date("01/01/00") 
examDate2=date("12/31/99") 
propType="GT" 
examType="OPPE" 

examDatel  .view("Enter  start  date  (I.E.  01/01/95)") 
examDate2.viewC'Enter  stop  date  (I.E.  01/01/95y') 
propType.view("Enter  prop  type  (I.E.  01/01/95)") 
switch 

case  propType="GT': 
case  propType="STM": 
case  propType="DSL": 
case  propType="ALL": 
othenvise: 

msgStop("Problem","The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 

examType.view("Enter  (OPPE/REOPPE/LOE/RELOE)") 
switch 

case  examType="OPPE": 
case  examType="REOPPE": 
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case  examType="LOE": 
case  examType="RELOE": 
othsrwis©’ 

msgStop("Problem",’The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only!") 
return 
endSwitch 

if  propType="ALL"  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamID_Ship_ShipName_FK2  1  ExamType  1 
I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  I  PropType  | 

I  _EG02,  _EG01  I  Check  | 

TRAINING.DB  |  Trainin_Ship_ShipName_FK7  |  TraininglD_ExamEndDate  I 
I  Check  _EG02  I  Check  >=~examDate1 ,  <=~examDate2l 

TRAINING.DB  I  TrainingProgramGrade  | 

I  Check  =SAT  OR  =GOOD  OR  =EXCl 


EndQuery 


myQuery1=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType  | 

SHIP.DB  I  ShipName  \  PropType  I 
|_EG02,_EG01  I  Check  I 

TRAINING.DB  |  Trainin_Ship_ShipName_FK7  |  TraininglD_ExamEndDate  I 
I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2| 

TRAINING.DB  I  TrainingProgramGrade  | 

I  Check  I 


EndQuery 


myQuery2=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  I 
I  _EG01  I  Check  =~examType  | 
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SHIP.DB  1  ShipName  |  PropType  | 

|_EG02,_EG01  I  Check  I 

TRAINING.DB  |  Trainin_Ship_ShipNanne_FK7  |  TraininglD_ExamEndDate 
I  Check  _EG02  I  Check  >=~examDate1 ,  <=~examDate2| 

TRAINING.DB  |  TrainingProgramGrade  | 

I  Check  =UNS  | 


EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2 1  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  |  PropType  | 

I  _EG02,  _EG01  I  Check  =~propType  \ 

TRAINING.DB  |  Trainin_Ship_ShipName_FK7  |  TraininglD_ExamEndDate 
I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2| 

TRAINING.DB  |  TrainingProgramGrade  | 

I  Check  =SAT  OR  =GOOD  OR  =EXC| 


EndQuery 


myQuery1=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType  | 

SHIP.DB  I  ShipName  |  PropType  I 

I  _EG02,  _EG01  I  Check  =~propType| 

TRAINING.DB  |  Trainin_Ship_ShipName_FK7  |  TraininglD_ExamEndDate 
I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2| 

TRAINING.DB  |  TrainingProgramGrade  | 

I  Check  I 


EndQuery 


myQuery2=Query 
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ANSWER:  :PRIV:ANSWER.DB 


EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType  | 

SHIP.DB  I  ShipName  |  PropType  | 

I  _EG02,  _EG01  I  Check  =~propTypel 

TRAINING.DB  |  Trainin_Ship_ShipName_FK7  |  TraininglD_ExamEndDate  I 
I  Check  _EG02  I  Check  >=~examDate1 ,  <=~examDate2| 

TRAINING.DB  I  TrainingProgramGrade  | 

I  Check  =UNS  I 


EndQuery 

endlf 

emptyCTrain") 

emptyC'TrainT') 

emp1yrTrain2") 

executeQBE(myQuery,  Train.db") 
executeQBE(myQuery1 ,  "Traini  .db") 
executeQBE(myQuery2,  "T  rain2.db") 
tbI.attachCTrain") 
tbl1.attachC'Train1") 

numberOfSatsTrainGrades=tbl.cCount("TrainingProgramGrade") 
msglnfoC'Training  Program", 'The  total  number  of  sats  are " 
+strVal(NumberOfSatsTrainGrades)) 

TotalNumberOfrrainGrades=tbl1  .cCount("T  rainingProgramGrade") 
if  totalNumberOffrainGrades  <>  0  then 
msglnfo('Training  Program", "The  total  number  of  grades  are  " 
+strVal(totalNumberOfTrainGrades)) 

SatPercentageTrainGrades=(numberOfSateT  rainGrades/totalNumberOfT  rainGrades)*!  00 
msgInfoCTraining  program","The  sat  percentage  of  is " 
+strVal(satPercentageTrainGrades)) 

0ls6 

msgStopC’Problem","The  total  number  of  training  grades  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageTrainGrades 

tc.("PropType")="TRAIN" 

tc.C'examDatel  ")=examDate1 

tc.("examDate2'^=examDate2 

tc.endEditO 

end  method 


Object :  #Page2.#Box22.MATERIAL_LIST_SHIP_BUTTON 

MethodName :  pushButton 
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Source : 


Object ; 
MethodName : 
Source : 


method  pushButton(var  eventinfo  Event) 
var 

newView  tableVie\w 
choice  string 
endVar 
choice="SAT" 

choice.vie\w("Enter  SAT  or  UNS  to  vie\w  the  list  of  ships") 
switch 

case  choice="SAT":  newView.open("Mat2") 
case  choice="UNS":  newView.open("Mat3") 
otherwise: 

msgStop("Problem","The  choices  for  Exam  grade  are  SAT,  or  UNS  only!") 
return 
endSwitch 
endmethod 


#Page2.#Box22.MATERIAL_PERCENT_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 

numberOfSatsMatGrades  Number 

totalNumberOfMatGrades  Number 

satPercentageMatGrades  Number 

myQuery  Query 

myQueryl  Query 

myQuery2  Query 

examDatel  Date 

examDate2  Date 

PropType  String 

examType  String 

endVar 

doDefault 

examDatel  =date("01/01/00") 
examDate2=date("12/31/99") 
propType="GT" 
examType="OPPE" 

examDatel  .view("Enter  start  date  (I.E.  01/01/95)") 
examDate2.view("Enter  stop  date  (I.E.  01/01/95^*) 
propType.view("Enter  prop  type  (GT/STM/DSL)") 
switch 

case  propType="GT': 
case  propType="STM": 
case  propType="DSL": 
case  propType="ALL": 
otherwise: 

msgStop("Probiem","The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 
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examType.viewfEnter  (OPPE/REOPPE/LOE/RELOE)") 
switch 

case  examType="OPPE'': 
case  examType=''REOPPE"; 
case  examType="LOE'': 
case  examType=’'RELOE": 

otherwise:  . 

msgStop("Problem","The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only!  ) 

return 

endSwitch 

if  propType="ALL"  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  1  ExamlD_Ship_ShipName_FK2  |  ExamType  1 
I  _EG01  I  Check  =~examTypel 

MATERIAL.DB  |  MatlD_Ship_ShipName_FK4  |  MatiD_ExamEndDate  |MaterialGrade  | 

I  Check  _EG02,  _EG01  |  Check  >=~examDate1 ,  <=~examDate2|Check  =SAT  OR  =EXC  OR 

=GOOD| 

SHIP.DB  I  ShipName  I  PropType  I 
I  _EG02  I  Check  | 


EndQuery 

myQueryl  =Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamiD_Ship_ShipName_FK2  |  ExamType  1 
1  _EG01  I  Check  =~examTypel 

MATERIAL.DB  I  MatlD_Ship_ShipName_FK4  |  MatlD_ExamEndDate  jMaterialGrade 

^  I  Check  _EG02,  _EG01  I  Check  >=~examDate1 ,  <=~examDate2lCheck  =SAT  OR  =UNS  OR 
=EXC  OR  =GOOD| 

SHIP.DB  I  ShipName  I  PropType  | 

I  _EG02  I  Check  | 


EndQuery 

myQuery2=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  I 
I  _EG01  I  Check  =~examTypel 

MATERIAL.DB  |  MatlD_Ship_ShipName_FK4  \  MatlD_ExamEndDate 
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IMaterialGradej 


I  Check  _EG02,  _EG01  |  Check  >=~examDate1 ,  <=~examDate2|Check  =UNS  | 

SHIP.DB  I  ShipName  |  PropType  | 
l_EG02  I  Check  I 


EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  i  ExamType  | 

I  _EG01  I  Check  =~examType| 

MATERIAL.DB  |  MatlD_Ship_ShipName_FK4  |  MatlD_ExamEndDate  IMaterialGrade  I 

I  Check  _EG02,  _EG01  |  Check  >=~examDate1 ,  <=~examDate2|Check  =SAT  OR  =EXC  OR 

=GOOD| 

SHIP.DB  1  ShipName  1  PropType  | 

I  _EG02  I  Check  =~propType| 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  I  ExamType  I 
I  _EG01  I  Check  =~examType| 

MATERIAL.DB  |  MatlD_Ship_ShipName_FK4  |  MatlD_ExamEndDate  IMaterialGrade 

*  I  Check  _EG02,  _EG01  |  Check  >=~examDate1 ,  <=~examDate21Check  =SAT  OR  =UNS  OR 

=EXC  OR  =GOODl 

SHIP.DB  I  ShipName  |  PropType  | 

I  _EG02  I  Check  =~propType| 


EndQuery 

myQuery2=Query 

ANSWER:  :PRiV:ANSWER.DB 

EXAM.DB  1  ExamiD_Ship_ShipName_FK2  |  ExamType  1 
I  _EG01  I  Check  =~examTypel 

MATERIAL.DB  |  MatlD_Ship_ShipName_FK4  |  MatlD_ExamEndDate  |MaterialGrade| 

I  Check  _EG02,  _EG01  |  Check  >=~examDate1 ,  <=~examDate2|Check  =UNS  | 

SHIP.DB  I  ShipName  [  PropType  I 
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I  _EG02  I  Check  =~propType| 


Object : 
MethodName : 
Source : 


EndQuery 

endlf 

empty('’Mat2.db") 
empty("Mat1  .db") 
emptyC'MatS.db") 
executeQBE(myQuery,  ''Mat2.db") 
executeQBE(myQuery1 ,  "Matt  .db") 
executeQBE(myQuery2,  "MatS.db") 
tbl.attach("Mat2") 
tbH.attachfMatl") 

numberOfSatsMatGrades=tbl.cCount("MaterialGrade") 
msglnfoC'Materiar'.'The  total  number  of  sats  are " 

+strVal(NumberOreatsMatGrades)) 
TotalNumberOfMatGrades=tbl1.cCount("MaterialGrade") 
if  totalNumberOfMatGrades  <>  0  then 
msglnfoC'Materiar'.'The  total  number  of  grades  are " 
+strVal(totalNumberOfMatGrades)) 

SatPercentageMatGrades=(numberOfSatsMatGrades/totalNumberOfMatGrades)*100 
msglnfoC'Material","The  sat  percentage  of  is " 

+strVal(satPercentageMatGrades)) 

else 

msgStop("Problem",'The  total  number  of  material  grades  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.open("  percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageMatGrades 

tc.("PropType")="MAT" 

tc.("examDate1  ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box22.FIREFIGHT_PERCENT_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 

numberOfSatsFireGrades  Number 
totalNumberOfFireGrades  Number 
satPercentageFireGrades  Number 
myQuery  Query 
myQueryl  Query 
myQuer^  Query 
examDatet  Date 
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examDate2  Date 
PropType  String 
examType  String 
endVar 


doDefault 

examDatel  =date("01  /01  /OO") 
examDate2=date("  12/31  /99") 
propType=''Gr' 
examf ype=''OPPE" 

examDatel  .view("Enter  start  date  (I.E.  01/01/95)") 
examDAte2.viewC'Enter  stop  date  (I.E.  01/01/95)") 
propType.view("Enter  prop  type  (GT/STM/DSL)") 
switch 

case  propType="GT"; 
case  propType="STM": 
case  propType="DSL": 
case  propType="ALL'': 

otherwise:  . 

msgStop("Problem","The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only! ) 

return 

endSwitch 

examType.viewC'Enter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case  examType=''OPPE": 
case  examType="REOPPE": 
case  examType="LOE": 
case  examType="RELOE": 
othGrwisBi 

msgStop("Problem","The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only!") 
return 
endSwitch 


if  propType="ALL"  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  1  ExamlD_Ship_ShipName_FK2  [  ExamType  | 

I  _EG01  1  Check  =~examType  | 

SHIP.DB  I  ShipName  |  PropType  | 

|_EG03,_EG01  [Check  | 

FIREFIGH.DB  |  FireFig_Ship_ShipName_FK5  |  FireFightingl_ExamEndDate  | 
I  Check  _EG03  I  Check  >=~examDate1 ,  <=~examDate21 

FIREFIGH.DB  1  FireFightingGrade  | 

1  Check  =SAT  OR  =EXC  OR  =GOOD| 


EndQuery 

myQuery1=Query 
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ANSWER:  :PR1V:ANSWER.DB 


EXAM.DB  I  ExamlD_Ship_ShipName_FK2  I  ExamType  | 

I  _EG01  I  Check  =~examType  i 

SHIP.DB  I  ShipName  I  PropType  | 

I_EG03,_EG01  [Check  I 

FIREFIGH.DB  |  FireFig_Ship_ShipName_FK5  |  FireFightingl_ExamEndDate  [ 
I  Check  _EG03  I  Check  >=~examDate1 ,  <=~examDate2| 

FIREFIGH.DB  [  FireFightingGrade  | 

I  Check  =SAT  OR  =UNS  OR  =EXC  OR  =GOOD| 


EndQuery 

myQuery2=Query 

ANSWER;  :PRlV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  [ 

I  _EG01  I  Check  =~examType  | 

SHIP.DB  I  ShipName  \  PropType  | 

|_EG03,_EG01  [Check  | 

FIREFIGH.DB  [  FireFig_Ship_ShipName_FK5 1  FireFightingl_ExamEndDate  [ 
[  Check  _EG03  [  Check  >=~examDate1 ,  <=~examDate2[ 

FIREFIGH.DB  [  FireFightingGrade  [ 

|Check=UNS[ 


EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIV;ANSWER.DB 

EXAM.DB  [  ExamlD_Ship_ShipName_FK2  [  ExamType  [ 

I  _EG01  I  Check  =~examType  | 

SHIP.DB  [  ShipName  |  PropType  | 

[  _EG03,  _EG01  [  Check  =~propType  [ 

FIREFIGH.DB  [  FireFig_Ship_ShipName_FK5  [  FireFightingl_ExamEndDate  [ 
[  Check  _EG03  [  Check  >=~examDate1 ,  <=~examDate2[ 

FIREFIGH.DB  [  FireFightingGrade  [ 

I  Check  =SAT  OR  =EXC  OR  =GOOD[ 


EndQuery 
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myQuery1=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType  | 

SHIP.DB  I  ShipName  |  PropType  | 

I  _EG03,  _EG01  I  Check  =~propType  | 

FIREFIGH.DB  |  FireFig_Ship_ShipName_FK5 1  FireFightingl_ExamEndDate  | 
I  Check  _EG03  |  Check  >=~examDate1 ,  <=~examDate2| 

FIREFIGH.DB  |  FireFightingGrade  | 

I  Check  =SAT  OR  =UNS  OR  =EXC  OR  =GOOD| 


EndQuery 

myQuety2=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType  | 

SHIP.DB  I  ShipName  |  PropType  | 

I  _EG03,  _EG01  I  Check  =~propType  | 

FIREFIGH.DB  |  FireFig_Ship_ShipName_FK5  |  FireFightingl_ExamEndDate  | 
I  Check  _EG03  |  Check  >=~examDate1 ,  <=~examDate2| 

FIREFIGH.DB  |  FireFightingGrade  | 

I  Check  =UNSl 


EndQuery 

endlf 

emptyC'Firel") 

empty("Fire2") 

empty("Fire3") 

executeQBE(myQuery,  "Fire1  .db") 
executeQBE(myQuery1 ,  ''Fire2.db") 
executeQBE(myQuer^,  "Fire3.db") 
tbl.attach(Tire1") 
tbl1  .attach("Fire2") 

numberOfSatsFireGrades=tbl.cCount("FireFightingGrade") 
msgInfoC'Fire  Fighting", "The  total  number  of  sats  are " 
+strVal(NumberOfSatsFireGrades)) 
TotalNumberOfFireGrades=tbl1.cCount("FireFightingGrade") 
if  TotalNumberOfFireGrades  <>  0  then 
msgInfoC'Fire  Fighting", "The  total  number  of  grades  are " 
+strVal(totalNumberOfFireGrades)) 

SatPercentageFireGrades=(numberOfSatsFireGrades/totalNumberOfFireGrades)*100 
msgInfoC'Fire  Fighting", "The  sat  percentage  is " 
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Object : 
MethodName : 
Source : 


Object : 
MethodName 
Source : 


+strVal(satPercentageFireGrades)) 

6lS6 

msgStop("Problem”,’The  total  number  of  fire  fighting  grades  is  0,  you  cannot  divide  by  0!") 
return 
end  If 

tc.openCpercent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage'')=SatPercentageFireGrades 

tc.("PropType")=T/F" 

tc.("examDate1  '')=examDate1 

tc.rexamDate2")=examDate1 

tc.endEditO 

endmethod 


#Page2.#Box22.FF_UST_SHIPS_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

nevifView  tableViev/ 
choice  string 
endVar 
choice="SAT" 

choice.viewC'Enter  SAT  or  UNS  to  view  the  list  of  ships") 
switch 

case  choice="SAT";  newView.open("fire1") 
case  choice="UNS":  newView.openC’fireS") 
otherv/ise: 

msgStopCProblem","The  choices  for  Exam  grade  are  SAT,  or  UNS  only! ) 
return 
endSwitch 
endmethod 


#Page2.#Box22.0PERATION_PERCENT_BUTTON 
;  pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 

numberOfSatsOperationGrades  Number 

totalNumberOfOperationGrades  Number 

satPercentageOperationGrades  Number 

myQuery  Query 

myQueryl  Query 

myQuer^  Query 

examDatel  Date 

examDate2  Date 

PropType  String 

endVar 
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examDatel  =date(''01/01/00") 
examDate2=dateri  2/31  /99") 
propType="GT" 
doDefault 

examDatel  .viewC'Enter  start  date  (I.E.  01/01/95)") 
examDate2.view("Enter  stop  date  (I.E.  01/01/95/') 
propType.view("Enter  prop  type  (GT/STM/DSL)") 
switch 

case  propType="GT’: 
case  propType="STM": 
case  propType="DSL": 
case  propType="ALL": 
otherwise: 

msgStopC'Problem","The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 

if  propType="ALL"  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  i  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

1  _EG01  1  Check  =OPPE  | 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3 1  OperationlD_ExamEndDate  1 
I  Check  _EG02,  _EG01  |  Check  >=~examDate1 ,  <=~examDate2| 

OPERATIO.DB  |  OperationGrade  | 

I  Check  =SAT  OR  =GOOD  OR  =EXC| 

SHIP.DB  I  ShipName  [  PropType  | 

I  _EG02  1  Check  | 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EX/VM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  1 
I  _EG01  I  Check  =OPPE  | 

OPERATIO.DB  1  Operati_Ship_ShipName_FK3 1  OperationlD_ExamEndDate  | 
I  Check  _EG02,  _EG01  |  Check  >=~examDate1 ,  <=~examDate21 

OPERATIO.DB  |  OperationGrade  1 
I  Check  1 

SHIP.DB  I  ShipName  |  PropType  | 

1  _EG02  I  Check  1 
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EndQuery 

myQuery2=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  1 
I  _EG01  I  Check  =OPPE  I 

OPERATIO.DB  ]  Operati_Ship_ShipName_FK3  I  OperationlD_ExamEndDate  I 
I  Check  _EG02,  _EG01  I  Check  >=~examDate1 ,  <=~examDate2l 

OPERATIO.DB  I  OperationGrade  | 

I  Check  =UNS  I 

SHIP.DB  I  ShipName  |  PropType  | 

I  _EG02  I  Check  I 


EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  \  ExamType  I 
I  _EG01  I  Check  =OPPE  I 

OPERATIO.DB  I  Operati_Ship_ShipName_FK3  |  OperationlD_ExamEndDate  | 
I  Check  _EG02,  _EG01  |  Check  >=~examDate1 ,  <=~examDate2l 

OPERATIO.DB  |  OperationGrade  | 

I  Check  =SAT  OR  »GOOD  OR  =EXC| 

SHIP.DB  I  ShipName  I  PropType  [ 

I  _EG02  I  Check  =~propTypel 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =OPPE  I 

OPERATIO.DB  I  Operati_Ship_ShipName_FK3 1  OperationlD_ExamEndDate  \ 
\  Check  _EG02,  _EG01  |  Check  >=~examDate1 ,  <=~examDate2| 

OPERATIO.DB  |  OperationGrade  I 
I  Check  I 

SHIP.DB  I  ShipName  |  PropType  | 
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I  _EG02  I  Check  =~propType| 


EndQuery 

myQuery2=Query 

ANSWER:  :PR1V:ANSWER.DB 

EXAM.DB  1  ExamlD_Ship_ShipName_FK2  |  ExamType  1 
1  _EG01  I  Check  =OPPE  | 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |  OperationlD_ExamEndDate  I 
I  Check  _EG02,  _EG01  |  Check  >=~examDate1 ,  <=~examDate2l 

OPERATIO.DB  |  OperationGrade  | 

I  Check  =UNS  | 

SHIP.DB  I  ShipName  |  PropType  | 

I  _EG02  I  Check  =~propType| 


EndQuery 

endlf 

emptyC'OpSum") 

emptyfOpSumT') 

emptyCOpSuni2") 

executeQBE(myQuery,  "OpSum.db") 
executeQBE(myQuery1 ,  "OpSumI  .db") 
executeQBE(myQuery2,  ''OpSum2.db") 
tbl.attachC'OpSum") 
tbl1  .attach("OpSum1") 

numberOfSatsOperationGrades=tbl.cCount("OperationGrade") 
msglnfoC'Operations",'The  total  number  of  sats  are " 

+str\/al(NumberOfSatsOperationGrades)) 
TotalNumberOfOperationGrades=tbl1.cCount("OperationGrade") 
if  TotalNumberOfOperationGrades  <>  0  then 
msglnfoC'Operations","The  total  number  grades  are " 

+strVaI(totalNumberOfOperationGrades)) 

SatPercentageOperationGrades=(numberOfSatsOperationGrades/totalNumberOfOperatonGrades)*100 

msglnfoCOperations",'The  sat  percentage  is " 

+strVal(satPercentageOperationGrades)) 

gIsb 

msgStop('’Problem'',"The  total  number  of  operation  grades  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.CPercentage")=SatPercentageOperationGrades 
tc.rPropType")="OPS" 
tc.fexamDatel  ")=examDate1 
tc.(''examDate2")=examDate2 
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Object : 
MethodName : 
Source : 


tc.endEditO 

endmethod 


#Page2.#Box22.0PPE_PERCENTAGE_BUTTON 

pushButton 

method  pushButton(var  eventlnfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 

numberOfSatsOppe  Number 
totalNumberOfOppe  Number 
satPercentageOppe  Number 
myQuery  Query 
myQueryl  Query 
myQuery2  Query 
examDatel  Date 
examDate2  Date 
propType  String 
examType  String 
endVar 
doDefault 

examDatel  =dateC'01  /01/00") 
examDate2=date("1 2/31/99") 
propType="GT" 

examDatel  .viewfEnter  start  date  (I.E.  01/01/95)") 
examDate2.viewrEnterstop  date  (I.E.  01/01/95/') 
propType.viewr("Enter  prop  type  (GT/STM/DSL)") 
svfltch 

case  propType="GT"; 
case  propType="STM": 
case  propType="DSL": 
case  propType=''ALL": 
otherwise: 

msgStop("Problem",'The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 

if  propType="ALL"  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  1  ExamlD_ExamEndDate  lExamType  1 

OverallFinding  1 

I  Check  _EG01  1  Check  >=~examDate1 ,  <=~examDate21Check  =OPPE  1  Check  =SAT  OR 

=EXC  OR  =GOODl 

SHIP.DB  I  ShipName  |  PropType  | 

|_EG01  I  Check  I 
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EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  lExamType  | 

OverallFinding  I 

I  Check  _EG01  |  Check  >=~examDate1 ,  <=~examDate2|Check  =OPPE  |  Check  =SAT  OR 

=UNS  OR  =GOOD  OR  =EXC| 

SHIP.DB  I  ShipName  |  PropType  I 
I  _EG01  I  Check  ] 


EndQuery 

myQuery2=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  [ExarnType  | 

OverallFinding  j 

I  Check  _EG01  |  Check  >=~examDate1 ,  <=~examDate2|Check  =OPPE  |  Check  =UNS  | 

SHIP.DB  I  ShipName  |  PropType  1 
I  _EG01  I  Check  | 


EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  lExamType  | 

OverallFinding  | 

I  Check  _EG01  |  Check  >=~examDate1 ,  <=~examDate2lCheck  =OPPE  |  Check  =SAT  OR 

=EXC  OR  =GOOD| 

SHIP.DB  I  ShipName  |  PropType  | 

I  _EG01  I  Check  =~propType| 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  I  ExamlD_ExamEndDate  lExamType  | 

OverallFinding  I 

I  Check  _EG01  I  Check  >=~examDate1 ,  <=~examDate2|Check  =OPPE  |  Check  =SAT  OR 

=UNS  OR  =GOOD  OR  =EXC| 
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SHIP.DB  I  ShipName  1  PropType  | 
I  _EG01  I  Check  =~propTypel 


EndQuery 

myQuery2=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  lExamType  | 

OverallFinding  | 

I  Check  _EG01  |  Check  >=~examDate1 ,  <=~examDate2lCheck  =:OPPE  |  Check  =UNS  | 

SHIP.DB  I  ShipName  I  PropType  | 

I  _EG01  I  Check  =~propType| 


EndQuery 

endlf 

emptyfOppeSum") 

empty("OppeSum1 ") 

emptyfOppeSum2'') 

executeQBE(myQuery,  "OppeSum.db") 

execiiteQBE(myQuery1 ,  "OppeSumI  .db") 

executeQBE(myQuery2,  "OppeSum2.db") 

tbl  .attach  C'OppeSum") 

tbl1  .attachfOppeSuml") 

numberOfSatsOppe=tbl.cCount("OverallFinding") 

msglnfo("OPPE",'The  total  number  of  sats  are " 

+strVal(NumberOfSatsOppe)) 
TotalNumberOfOppe=tbl1.cCount("OverallFinding") 
if  TotalNumberOfOppe  <>  0  then 
msginfoC'OPPE","The  total  number  is " 

+strVai(totalNumberOfOppe)) 

SatPercentageOppe=(numberOfSatsOppe/totalNumberOfOppe)*100 
msglnfoC'OPPE",'The  sat  percentage  is " 

+strVal(satPercentageOppe)) 

else 

msgStop("Problem",'The  total  number  of  OPPE's  is  0,  you  cannot  divide  by  0!”) 
return 
endlf 

tc.openC’percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageOppe 

tc.("PropType")="OPPE" 

tc.("examDate1  ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 
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Object ; 
MethodName : 
Source : 


Object : 
MethodName 
Source : 


PROGRAM_STATS_QUERY 

Const 

Const 

ViewProgramI  =301 
ViewProgram2=302 
\/iewProgram3=303 
ViewProgram4=304 
ViewProgram5=305 
\/iewProgram6=306 
ViewProgram7=307 
ViewProgram8=308 
ViewProgram9=309 
ViewProgramI  0=31 0 
ViewProgram1 1=311 
ViewProgramI  2=31 2 
ViewProgramI  3=31 3 
ViewProgramI  4=31 4 
PrintProgram1=315 
PrintProgram2=31 6 
PrintProgram3=31 7 
PrintProgram4=31 8 
PrintProgram5=319 
PrintProgram6=320 
PrintProgram7=321 
PrintProgram8=322 
PrintProgram9=323 
PrintProgramI  0=324 
PrintProgram1 1  =325 
PrintProgramI  2=326 
PrintProgramI  3=327 
PrintProgramI  4=328 
PrintProgramI  5=329 
endConst 


PROGRAM_STATS_QUERY 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
var 

tcTcursor 

examMenu,  View,  Print,  ReportMenu  Menu 
PrintPop  PopUpMenu 
ViewPop  PopUpMenu 
ViewProgramPop  PopUpMenu 
PrintProgramPop  PopUpMenu 
examtype  PopupMenu 
endVar 

if  eventInfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 
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Object : 
MethodName 
Source ; 


else 

;  This  code  executes  only  for  the  form. 

PrintPop.addTextC’Bearing  &Records",'"',PrintProgram1) 
PrintPop.addText("&BWF\Ar,"’',PrintProgram2) 
PrintPop.addText(”&DETA’’,"”,PrintProgram3) 
PrintPop.addTextCD&JWTT","'',PrintProgram4) 

PrintPop.addT  ext("&Electrical  Safety", '"'.PrintProgramS) 
PrintPop.addTextr&FOQM",’"',PrintProgram6) 
PrintPop.addTextf&Hearing  Consen/ation","",PrintProgram7) 
PrintPop.addTextfLe&gal  Records", "".PrintProgramS) 
PrintPop.addTextf&LOQM","", PrintProgramS) 
PrintPop.addText("&MGTESR","",PrintProgram10) 
PrintPop.addText("&OLV”,"",PrintProgram11) 
PrintPop.addTextfO&perating  Logs","",PrintProgram12) 
PrintPop.addT  extr&QA”,"",PrintProgram1 3) 
PrintPop.addTextC&Tag  Ouf’,"",PrintProgram1 4) 
PrintPop.addTextC&Graph","",PrintProgram15) 

ViewPop.addTextC'Bearing  &Records","”,ViewProgram1 ) 
ViewPop.addTextC'&BWFW","",\/iewProgram2) 
ViewPop.addText("&DETA","",ViewProgram3) 
\/iewPop.addText("D&JWTT","",\/iewProgram4) 
ViewPop.addTextC'&Electrical  Safety"  ,"",ViewProgram5) 
ViewPop.addTextf&FOQM","",\/iewProgram6) 
ViewPop.addTextC'&Hearing  Conservation", "",ViewProgram7) 
ViewPop.addTextfLe&gal  Records","", ViewProgramS) 
ViewPop.addTextC&LOQM","",\/iewProgram9) 
ViewPop.addText("&MGTESR","",ViewProgram10) 
ViewPop.addText("&OLV","",ViewProgram11) 
ViewPop.addTextC'O&perating  Logs","",ViewProgram12) 
ViewPop.addT  ext("&QA","",\/iewProgram  1 3) 

ViewPop.addT ext("&T ag  Our,"",ViewProgram1 4) 


examMenu.addPopUpC&View",  ViewPop) 

examMenu.addPopUP("&Print",  PrintPop) 

examMenu.addText("&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

tc.open("  percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endif 

endmethod 


PROGRAM_STATS_QUERY 

menuAction 

method  menuAction(var  eventinfo  MenuEvent) 
var 
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myRep  Report 
reply  String 
choiceld  Smallint 
m  menu 
endVar 

choiceld=eventlnfo.idO 

if  eventlnfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 


Switch 

case  eventInfo.menuChoiceO  ="&Help": 

case  eventInfo.menuChoiceO  =”&Quit"; 
reply=msgQuestion ("Quit", "Are  you  sure  you  want  to  leave  this  form?") 
If  reply  =  "Yes"  then 
closeO 
else 
return 
endlf 
endSwitch 
Switch 

case  choiceld  =\/iewProgram1 : 
myRep.openC'Bearing") 

hideSpeedBarO 

m.addTextC") 

m.showO 

case  choiceld  =\/iewProgram2: 
myRep.openf'BWFW") 
hideSpeedBarO 
m.addTextC") 
m.showO 

case  choiceld  =ViewProgram3: 
myRep.openC'DETA") 
hideSpeedBarO 
m.addTextC") 
m.showO 

case  choiceld  =ViewProgram4: 
myRep.openC'DJWTT") 
hideSpeedBarO 
m.addTextC") 
m.showO 

case  choiceld  =\/iewProgram5: 
myRep.openC'Electric") 
hideSpeedBarO 
m.addTextC") 
m.showO 

case  choiceld  =\/iewProgram6: 
myRep.openC’FOQM") 
hideSpeedBarO 
m.addTextC") 
m.showO 
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case  choiceld  =\/iewProgram7: 
myRep.openC'Hearing") 
hideSpeedBarO 
m.addTextC") 

m.showO 

case  choiceld  =ViewProgram8: 
myRep.openC'LegalRec") 

hideSpeedBarO 

m.addText("") 

m.showO 

case  choiceld  =ViewProgram9: 
myRep.openC'LOQM") 

hideSpeedBarO 

m.addText("") 

m.showO 

case  choiceld  =ViewProgram10: 
myRep.openC'MGTESR") 
hideSpeedBarO 
m.addTextC") 
m.showO 

case  choiceld  =ViewProgram11; 
myRep.openC'OLV) 

hideSpeedBarO 

m.addTextC") 

m.showO 

case  choiceld  =ViewProgram12: 
myRep-openfOPLOGS") 
hideSpeedBarO 
m.addTextC") 
m.showO 

case  choiceld  =ViewProgram13; 
myRep.openC'QA") 
hideSpeedBarO 
m.addTextC") 
m.showO 

case  choiceld  =ViewProgram14: 
myRep.open('T  agOut") 
hideSpeedBarO 
m.addTextC”) 
m.showO 

case  choiceld  =PrintProgram1; 

myRep.printCBearing") 
case  choiceld  =PrintProgram2: 

myRep.printCBWFW") 
case  choiceld  =PrintProgram3: 

myRep.printCDETA") 
case  choiceld  =PrintProgram4: 
myRep.printCDJWTT") 
case  choiceld  =PrintProgram5: 
myRep-printC'Electric") 
case  choiceld  =PrintProgram6; 
myRep.printCFOQM") 
case  choiceld  =PrintProgram7: 

myRep.printCHearing") 
case  choiceld  =PrintProgram8: 


Object ; 
MethodName : 
Source : 


myRep.printC'LegalRec") 
case  choiceld  =PrintProgram9: 
myRep.printC'LOQM") 
case  choiceld  =PrintProgram10: 
myRep.printC'MGTESR") 
case  choiceld  =PrintProgram11; 
myRep.printC'OLV") 
case  choiceld  =PrintProgram12: 

myRep.prlntC'OPLOGS") 
case  choiceld  =PiintProgram13: 

myRep.printCQA") 
case  choiceld  =PrintProgram14: 
myRep.printCT  agOut") 
case  choiceld  =PrintProgram15: 
myRep.print("ProgStat'') 
endSwitch 
endif 

endmethod 


#Page2 

setFocus 

method  setFocus(var  eventinfo  Event) 
var 

examMenu,  View,  Print,  ReportMenu  Menu 
PrintPop  PopUpMenu 
ViewPop  PopUpMenu 
ViewProgramPop  PopUpMenu 
PrintProgramPop  PopUpMenu 
examtype  PopupMenu 
endVar 

PrintPop.addTextfBearing  &Records","'',PrintProgram1) 

PrintPop.addTextC'&BWFW","'',PrintProgram2) 

PrintPop.addTextC'&DETA'',"",PrintProgram3) 

PrintPop.addTextC'D&JWTT","",PrintProgram4) 

PrintPop.addT  ext("&Electrical  Safety", "",PrintProgram5) 

PrintPop.addTextC'&FOQM","",PrintProgram6) 

PrintPop.addText("&Hearing  Conservation","",PrintProgram7) 

PrintPop.addText("Le&gal  Records","",PrintProgram8) 

PrintPop.addTextC'&LOQM","",PrintProgram9) 

PrintPop.addText("&MGTESR","",PrintProgram10) 

PrintPop.addTextr&OLV’,"",PrintProgram1 1 ) 

PrintPop.addT extfO&perating  Logs","",PrintProgram1 2) 
PrintPop.addT  extC'&QA","",PrintProgram  1 3) 

PrintPop.addT  extf  &T  ag  Out","",PrintProgram1 4) 
PrintPop.addT  ext("&Graph'','”',PrintProgram1 5) 

ViewPop.addTextC'Bearing  &Records",”",ViewProgram1) 
ViewPop.addTextC'&BWFW","”,ViewProgram2) 
\/iewPop.addText("&DETA","",ViewProgram3) 
ViewPop.addText("D&JWTT","”,ViewProgram4) 
ViewPop.addT  ext("&Electrical  Safety",""  ,\/iewProgram5) 
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Object : 
MethodName : 
Source : 


Object : 
MethodName 
Source : 


ViewPop.addTextC&FOQM","",\/iewProgram6) 
ViewPop.addTextr&Hearing  Conservation", "".ViewProgram?) 
ViewPop.addTextfLe&gal  Records", "".ViewProgramS) 
ViewPop.addTextC’&LOQM","",\/iewProgram9) 
\/iewPop.addText("&MGTESR","",ViewProgram10) 
ViewPop.addTextr&OLV","",\/iewProgram11) 
Vie\wPop.addText("0&perating  Logs","",ViewProgram1 2) 
ViewPop.addTextC’&QA","",\/ie\wProgram13) 
Vie\wPop.addTexlC&TagOuf,"",ViewProgram14) 


examMenu.addPopUpC'&View",  ViewPop) 
examMenu.addPopUPC'&Print",  PrintPop) 
examMenu.addText("&Quit") 

examMenu-showO 

maximizeO 

hideSpeedBarO 

endmethod 


#Page2.#Box3.RESET_GRAPH_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tcTcursor 

endVar 

tc-openCpercenf) 

tc.editO 

tc.emptyO 

tc.endEditO 

endmethod 


#Page2.#Box3.HEAT_STRESS_BUTTON 
;  pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 

numberO^atsProgramGrades  Number 

totalNumberOfProgramGrades  Number 

satPercentageProgramGrades  Number 

myQuery  Query 

myQueryl  Query 

myQuery2  Query 

examDatel  Date 

examDate2  Date 

PropType  String 

examType  String 

endVar 
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doDefault 

examDatel  =date("01  /01  /OO”) 
examDate2=date("12/31/99") 
propType="GT" 
examfype="OPPE" 

examDatel  .view("Enter  start  date  (I.E.  01/01/95)") 
examDate2.view("Enter  stop  date  (I.E.  01/01/95/') 
propType.viewC'Enter  prop  type  (GT/STM/DSL)") 
switch 

case  propType="GT': 
case  propType=''STM": 
case  propType="DSL": 
case  propType=''ALL": 
otherwise: 

msgStopC'Problem","The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 

examType.vlewrEnter(OPPE/REOPPEA.OE/RELOE)") 

switch 

case  examType="OPPE": 
case  examType="REOPPE": 
case  examType="LOE": 
case  examType="RELOE": 
otherwise: 

msgStop("Problem","The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only!") 
return 
endSwitch 

if  propType="ALL"  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EX/\M.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  «~examType| 

SHIP.DB  I  ShipName  [PropType  | 

1  _EG02,  _EG01  ICheck  | 

PROGRAMM.DB  1  PMJD_Ship_ShipName_FK6  |  PMJD_ExamEndDate  |HeatStress  | 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT| 

EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  1  ShipName  |PropType  1 

I  _EG02,  _EG01  [Check  | 
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IHeatStress 


PROGRAMM.DB  |  PM_ID_Ship_ShipName_FK6  |  PMJD_ExamEndDate 

^  I  Check  _EG02  1  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT  OR  =UNS1 
EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  1  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  IPropType  I 
I  _EG02,  _EG01  [Check  =~propTypel 

PROGRAMM.DB  I  PM_ID_Ship_ShipName_FK6 1  PMJD_ExamEndDate  IHeatStress  | 

I  Check  _EG02  i  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT| 

EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  [PropType  ( 

I  _EG02,  _EG01  [Check  =~propType[ 

PROGRAMM.DB  [  PM_ID_Ship_ShipName_FK6  |  PMJD_ExamEndDate  [HeatStress 

[  Check  _EG02  [  Check  >=~examDate1 ,  <=~examDate2[Check  =EXC  OR  =GOOD  OR 

=SAT  OR  =UNS[ 

EndQuery 

endlf 

emptyC'HEATSTRS") 
emptyC'HEATSTRI") 
executeQBE(myQuery,  "HEATSTRS.db") 
executeQBE(myQuery1 ,  "HEATSTR1  .db") 
tbLattachCHEATSTRS") 
tbl1.attachC’HEATSTRr) 

numberOfSatsProgramGrades=tbl.cCount("HeatStress") 
msgInfoC'Heat  Stress", "The  total  number  of  sats  are " 

+strVal(NumberOfSatsProgramGrades)) 

TotalNumberOfProgramGrades=tbl1.cCount("HeatStress") 

If  totalNumberOfProgramGrades  <>  0  then 
msglnfoC'HeatStress","The  total  number  of  grades  are " 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 
msglnfofHeat  Stress", "The  sat  percentage  is " 

+strVal(satPercentageProgramGrades)) 
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Object : 
MethodName : 
Source : 


else 

msgStop("Problem","The  total  number  of  Heat  Stress  grades  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.("PropType")="HEAT" 

tc.("PropType1  ")=examType 

tc.("examDate1  ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.BEARING_RECORDS_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 

numberOfSatsProgramGrades  Number 

totalNumberOfProgramGrades  Number 

satPercentageProgramGrades  Number 

myQuery  Query 

myQueryl  Query 

myQuer^  Query 

examDatel  Date 

examDate2  Date 

PropType  String 

examType  String 

endVar 

doDefault 

examDatel  =date("0 1/0 1/00") 
examDate2=date(“12/31/99'’) 
propType="GT" 
examType="OPPE" 

examDatel  .viewfEnter  start  date  (I.E.  01/01/95)") 
examDate2.viewC’Enter  stop  date  (I.E.  01/01/95)") 
propType.view^C'Enter  prop  type  (GT/STM/DSL)") 
switch 

case  propType="GT"; 
case  propType="STM"; 
case  propType=”DSL": 
case  propType="ALL": 
otherwise: 

msgStop{"Problem","The  choices  for  Propuision  Type  are  GT,  STM,  DSL  or  ALL  only!") 
return 
endSwitch 
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examType.viewrEnter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case  examType="OPPE": 
case  examType="REOPPE'': 
case  examType="LOE": 
case  examType=”RELOE": 
otherwise: 

msgStop(”Problem",'The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only!”) 
return 
endSwitch 

if  propType="ALL"  then 
myQuery=Query 

ANSWER:  ;PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  I  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  jPropType  | 

I  _EG02,  _EG01  ICheck  | 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6  |  PMJD_ExamEndDate  |BearingRecsGrade 

I 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examTypel 

SHIP.DB  I  ShipName  |PropType  | 

I  _EG02,  _EG01  ICheck  | 

PROGRAMM.DB  [  PM_ID_Ship_ShipName_FK6  |  PMJD_ExamEndDate  |BearingRecsGrade| 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =SAT  OR  =UNS  OR 

=GOOD  OR  =EXC  I 


EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  I  ExamType  | 
I  _EG01  I  Check  =~examTypel 
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SHIP.DB  I  ShipName  |PropType  1 
I  _EG02,  _EG01  [Check  =~propTypel 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6  j  PMJD_ExamEnciDate  | Bearing RecsGrade 

^  I  Check  _EG02  I  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT| 


EndQuery 

myQueryl  =Query 

ANSWER:  :PR1V:ANSWER.DB 

EXAM.DB  1  ExamlD_Ship_ShipName_FK2 1  ExamType  1 
I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  [PropType  I 
I  _EG02,  _EG01  [Check  =~propType| 

PROGRAMM.DB  [  PMJD_Ship_ShipName_FK6  [  PMJD_ExamEndDate  |BearingRecsGrade[ 

[  Check  _EG02  j  Check  >=~examDate1 ,  <=~examDate2[Check  =SAT  OR  -UNS  OR 

=GOOD  OR  =EXC  [ 


EndQuery 

endlf 

emptyC'BEARREC") 
emptyC’BEARRECI") 
executeQBE(myQuery,  "BEARREC.db") 
executeQBE(myQuery1 ,  "BEARREC1  .db") 
tbI.attachC'BEARREC") 
tbll.attachCBEARRECr') 

numberOfSateProgramGrades=tbl.cCountrBearingRecsGrade’’) 

msgInfoC'Bearing  Records", "The  total  number  of  sats  are " 

+strVal(NumberOfSatsProgramGrades)) 

TotalNumberOfProgramGrades=tbl1.cCount("BearingRecsGrade") 

if  totalNumberOfProgramGrades  <>  Othen 
msgInfoC'Bearing  Records", "The  total  number  of  grades  are " 
+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)  100 

msgInfoC'Bearing  Records",'The  sat  percentage  is " 

+strVal(satPercentageProgramGrades)) 

0|S0 

msgStop("Problem","The  total  number  of  Bearing  Records  Grades  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.rPropType")="BRG" 

tc.CexamDatel  ")=examDate1 
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Object : 
MethodName ; 
Source : 


tc.("examDate2")=examDate2 
tc.("propType1  ")=examType 
tc.endEditO 
endmethod 


#Page2.#Box3.LEGAL_RECORDS_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 

numberOfSatsProgramGrades  Number 

totalNumberOff^rogramGrades  Number 

satPercentageProgramGrades  Number 

myQuery  Query 

myQueryt  Query 

myQuer^  Query 

examDatel  Date 

examDate2  Date 

PropType  String 

examType  String 

endVar 

doDefault 

examDatel  =date("01/01  /OO") 
examDate2=date("1 2/31/99") 
propType="GT" 
examType="OPPE" 

examDatel  .view("Enter  start  date  (I.E.  01/01/95)") 
examDate2.viewC'Enter  stop  date  (I.E.  01/01/95^’) 
propType.viewfEnter  prop  type  (GT/STM/DSL)") 
sv^ritch 

case  propType="GT": 
case  propType="STM": 
case  propType="DSL": 
case  propType="ALL": 
otherwise: 

msgStopC'Problem","The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 

examType.view("Enter(OPPE/REOPPE/LOE/RELOE)") 

svy^ch 

case  examType="OPPE": 
case  examType="REOPPE": 
case  examType="LOE": 
case  examType="RELOE": 
othenwise: 

msgStopC’Problem","The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only!") 
return 
endSwitch 
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if  propType="ALL"  then 
myQuery=Query 

ANSWER;  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examTypel 

SHIP.DB  I  ShipName  |PropType  | 

I  _EG02,  _EG01  ICheck  I 

PROGRAMM.DB  j  PM_ID_Ship_ShipName_FK6  |  PM_ID_ExamEndDate  jLegalRecsGrade 

^  I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER:  ;PRlV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  I  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  |PropType  I 
I  _EG02,  _EG01  ICheck  | 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6  |  PMJD_ExamEndDate  |LegalRecsGrade  | 

I  Check  _EG02  I  Check  >=~examDate1 ,  <=~examDate2|Check  =SAT  OR  =UNS  OR 

=GOOD  OR  =EXC  I 


EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  IPropType  | 

|_EG02,_EG01  ICheck  =~propTypel 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6  |  PMJD_ExamEndDate  ILegalRecsGrade 

'  I  Check  _EG02  I  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT| 


EndQuery 
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myQuery1=Query 
ANSWER:  :PRIV:ANSWER.DB 


Object : 
MethodName 


EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  I 
I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  |PropType  | 

I  _EG02,  _EG01  [Check  =~propType| 

PROGRAMM.DB  [  PMJD_Ship_ShipName_FK6  j  PMJD_ExamEndDate  [LegalRecsGrade  j 

I  Check  _EG02  [  Check  >=~examDate1 ,  <=~examDate2|Check  =SAT  OR  =UNS  OR 

=GOOD  OR  =EXC  I 


EndQuery 

endlf 

emptyC'LEGALREC") 
emptyC'LGALRECr) 
executeQBE(myQuery ,  "LEGALREC.d  b”) 
executeQBE(myQuery1 ,  "LGALREC1  .db") 
tbl.attach("LEGALREC") 
tbh.attachCLGALRECI") 

numberOfSatsProgramGrades=tbl.cCountC'LegalRecsGrade") 
msgInfoC'Legal  Records", "The  total  number  of  sate  are " 

+strVal(NumberOfSateProgramGrades)) 
TotalNumberOfProgramGrades=tbl1.cCount(''LegalRecsGrade") 
if  totalNumberOfProgramGrades  <>  0  then 
msgInfoC'Legal  Records", The  total  number  of  grades  are " 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSateProgramGrades/totalNumberOfProgramGrades)*100 
msgInfoC'Legal  Records" ,"The  sat  percentage  is " 

+str\/al(satPercentageProgramGrades)) 

6lS6 

msgStopC’Problem","The  total  number  of  Legal  Records  Grades  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tcJnsertRecordO 

tc.C'Percentage")=SatPercentageProgramGrades 

tc.C'PropType'')="LGL" 

tc.fPropTypel  ")=examType 

tc.("examDate1  ")=examDate1 

tc.C'examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.BWFW_BUTTON 

pushButton 
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Source : 


method  pushButton(var  eventinfo  Event) 
var 

to  tCursor 
tb!  table 
tbl1  table 

numberOfSatsProgramGrades  Number 

totalNumberOfProgramGrades  Number 

satPercentageProgramGrades  Number 

myQuery  Query 

myQueryl  Query 

myQuer^  Query 

examDatel  Date 

examDate2  Date 

PropType  String 

examType  String 

endVar 

doDefault 

examDatel  =date("01/01/00") 
examDate2=date("1 2/31/99") 
propType="GT" 
examf ype="OPPE" 

examDatel  .viewfEnter  start  date  (I.E.  01/01/95)") 
examDate2.viev/("Enter  stop  date  (I.E.  01/01/95/') 
propType.viewC'Enter  prop  type  (GT/STM/DSL)") 
switch 

case  propType="Gr': 
case  propType="STM": 
case  propType="DSL": 
case  propType="ALL": 
otherwise: 

msgStop("Problem","The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 

examType.viewC'Enter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case  examType="OPPE": 
case  examType="REOPPE": 
case  examType="LOE": 
case  examType="RELOE"; 
otherwise: 

msgStop("Problem","The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only!") 
return 
endSwitch 

if  propType="ALL"  then 
myQuery=Query 

ANSWER:  :PRiV:ANSWER.DB 

EX/\M.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  i 
I  _EG01  I  Check  =~examTypel 

SHIP.DB  I  ShipName  |PropType  | 
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I  _EG02,  _EG01  ICheck  | 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6  I  PMJD_ExamEndDate  |BWFW_Grade 

^  I  Check  _EG02  I  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 
=SAT| 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  I  ExatnType  I 
I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  |PropType  | 

I  _EG02,  _EG01  ICheck  | 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6  |  PMJD_ExamEndDate  lBWFW_Gradel 

I  Check  _EG02  I  Check  >=~examDate1 ,  <=~examDate2|Check  =SAT  OR  =UNS  OR 

=GOOD  OR  =EXCl 


EndQuery 

else 

myQuery=Query 
ANSWER;  ;PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  I  ExamType  I 
I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  |PropType  | 

I  _EG02,  _EG01  ICheck  =~propType| 

PROGRAMM.DB  |  PM_ID_Ship_ShipName_FK6  |  PM_ID_ExamEndDate  |BWFW_Grade 

I  Check  _EG02  I  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIVANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2 1  ExamType  | 
I  _EG01  I  Check  =~examTypel 

SHIP.DB  I  ShipName  |PropType  | 

I  _EG02,  _EG01  ICheck  =~propType| 
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Object : 
MethodName : 
Source : 


PROGRAMM.DB  |  PM_ID_Ship_ShipName_FK6  1  PM_ID_ExamEndDate  |BWFW_Grade| 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =SAT  OR  =UNS  OR 

=GOOD  OR  =EXC| 


EndQuery 

endlf 

emptyC'BWFW") 

empty("BWFW1") 

executeQBE(myQuery,  "BWFW.db”) 
executeQBE(myQuery1 ,  "BWFW1  .db") 
tbl.attachfBWFW") 
tbl1.attach("BWFW1") 

numberOfSatsProgramGrades=tbl.cCountC’BWFW_Grade'') 
msglnfo("BWFW","The  total  number  of  sats  are " 

+strVal(NumberOfSatsProgramGrades)) 
TotalNumberOfProgramGrades=tbl1.cCount(''BWFW_Grade") 
if  totalNumberOfProgramGrades  <>  0  then 
msglnfoC'BWFW'.'The  total  number  of  grades  are " 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 
msglnfoCBWFW",*The  sat  percentage  is " 

+strVal(satPercentageProgramGrades)) 

else 

msgStop("Problem","The  total  number  of  BWFW  Grades  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openfpercent") 

TC.editO 

tc.insertRecordO 

tc.fPercentage")=SatPercentageProgramGrades 

tc.C'PropType")="BWFW" 

tc.C’PropTypel  '’)=examType 

tc.fexamDatel  ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.LOQM_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 

numberOfSatsProgramGrades  Number 
totalNumberOfProgramGrades  Number 
satPercentageProgramGrades  Number 
myOuery  Query 
myQuery!  Query 
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myQuery2  Query 
examDatel  Date 
examDate2  Date 
PropType  String 
exanrrType  String 
endVar 

doDefauit 

examDatel  =date(’'01  /01 100”) 
examDate2=dateC'12/31/99") 
propType="GT" 
examType="OPPE" 

examDatel  .view("Enter  start  date  (I.E.  01/01/95)") 
examDate2.viewrEnter  stop  date  (I.E.  01/01/95y') 
propType.view("Enter  prop  type  (GT/STM/DSL)") 
switch 

case  propType=”GT": 
case  propType="STM"; 
case  propType="DSL": 
case  propType="ALL"; 
othenwise: 

msgStop(''Problem",'The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 

examType.viewC'Enter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case  examType="OPPE": 
case  examType="REOPPE": 
case  examType="LOE": 
case  examType="RELOE": 
othenwise: 

msgStopC'Problem","The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  oniyl") 
return 
endSwitch 

if  propType="ALL"  then 
myQuery=Query 

ANSWER;  :PRiV:ANSWER.DB 

EX/\M.DB  I  ExamiD_Ship_ShipName_FK2  |  ExamType  | 

1  _EG01  1  Check  =~examTypel 

SHIP.DB  1  ShipName  IPropType  1 
|_EG02,_EG01  ICheckI 

PROGR/\MM.DB  |  PM_ID_Ship_ShipName_FK6  |  PM_ID_ExamEndDate  |LOQM_Grade 

I 

I  Check  _EG02  1  Check  >=~examDate1 ,  <=~examDate21Check  =EXC  OR  =GOOD  OR 

=SAT| 


EndQuery 
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myQuery1=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  I 
I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  IPropType  I 
I  _EG02,  _EG01  ICheck  I 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6 1  PMJD_ExamEndDate  lLOQM_Grade  | 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =SAT  OR  =UNS  OR 

=GOOD  OR  =EXCl 


EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  I  ExamType  | 

I  _EG01  I  Check  =~examTypel 

SHIP.DB  I  ShipName  |PropType  | 

I  _EG02,  _EG01  [Check  =~propType| 

PROGRAMM.DB  j  PMJD_Ship_ShipName_FK6  |  PMJD_ExamEndDate  |LOQM_Grade 

I  Check  _EG02  j  Check  >=-~examDate1 ,  <=~examDate2lCheck  =EXC  OR  =GOOD  OR 

=SATl 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  j  ExamType  | 

I  _EG01  I  Check  =~examTypej 

SHIP.DB  I  ShipName  jPropType  j 
I  _EG02,  _EG01  [Check  =~propType[ 

PROGRAMM.DB  [  PM_ID_Ship_ShipName_FK6  [  PM_ID_ExamEndDate  [LOQM_Grade  [ 

I  Check  _EG02  [  Check  >=~examDate1 ,  <=~examDate2[Check  =SAT  OR  =UNS  OR 

=GOOD  OR  =EXC[ 


EndQuery 

endlf 


empty  ("LOQM") 
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Object : 
MethodName 
Source : 


emptyC'LOQMI") 

executeQBE(myQuery,  "LOQM.db") 
executeQBE(myQuefy1 ,  "LOQM1  .db") 
tbI.attachC'LOQM") 
tbl1.attach("LOQM1") 

numberOfSatsProgramGrades=tbl.cCount("LOQM_Grade") 
msglnfo("LOQM",The  total  number  of  sats  are " 

+strVal(NumberOfSatsProgramGrades)) 
TotalNumberOfProgramGrades=tbl1.cCount("LOQM_Grade") 
if  totalNumberOfProgramGrades  <>  0  then 
msglnfo("LOQM","The  total  number  of  grades  are  " 

+strVal(tota!NumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)  100 

msglnfo("LOQM";The  sat  percentage  is " 

+strVal(satPercentageProgramGrades)) 

6iS6 

msgStopC'Problem",'The  total  number  of  LOOM  Grades  is  0.  you  cannot  divide  by  0!") 
return 
end  If 

tc.openC'percent") 

TC.editO 

tc-insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.("PropType")="LOQM" 

tc.fPropTypel  ")=examType 

tc.("examDate1  ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.DETA_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 

numberOfSatsProgramGrades  Number 

totalNumberOfProgramGrades  Number 

satPercentageProgramGrades  Number 

myQuery  Query 

myQueryl  Query 

myQuer^  Query 

examDatel  Date 

examDate2  Date 

PropType  String 

examType  String 

endVar 

doDefault 

examDatel  =date("01  /01  /OO") 
examDate2=date("1 2/31 199") 
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propType="GT’ 

examType="OPPE'' 

examDatel  .view("Enter  start  date  (I.E.  01/01/95)") 
examDate2.view("Enter  stop  date  (I.E.  01/01/95^') 
propType.viewC'Enter  prop  type  (GT/STM/DSL)") 
switch 

case  propType="GT': 
case  propType="STM": 
case  propType="DSL": 
case  propType="ALL"; 
otherwise: 

msgStopC'Problem","The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 

examType.view("Enter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case  examType="OPPE": 
case  examType="REOPPE": 
case  examType="LOE": 
case  examType="RELOE": 
otherwise; 

msgStop("Problem","The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only!") 
return 
endSwitch 

if  propType="ALL"  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  1  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  1  ShipName  jPropType  | 

|_EG02,_EG01  [Check  I 

PROGR/\MM.DB  j  PM_lD_Ship_ShipName_FK6  j  PM_ID_ExamEndDate  |DETA_Grade 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EX/\M.DB  I  ExamlD_Ship_ShipName_FK2  [  ExamType 
I  _EG01  j  Check  =~examType| 

SHIP.DB  I  ShipName  jPropType  | 

I  _EG02,  _EG01  [Check  [ 
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PROGRAMM.DB  |  PM_ID_Ship_ShipName_FK6  \  PM_ID_ExamEndDate  |DETA_Grade  1 

I  Check  _EG02  1  Check  >=~examDate1 ,  <=~examDate2lCheck  =SAT  OR  =UNS  OR 

=GOOD  OR  =EXC  I 


EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  I 
I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  |PropType  I 
I  _EG02,  _EG01  ICheck  =~propTypel 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6  |  PMJD_ExamEndDate  lDETA_Grade 

^  I  Check  _EG02  I  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER:  :PRlV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2 1  ExamType  I 
I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  |PropType  | 

I  _EG02,  _EG01  [Check  =~propTypel 

PROGRAMM.DB  [  PM_ID_Ship_ShipName_FK6  I  PMJD_ExamEndDate  |DETA_Grade  I 

I  Check  _EG02  I  Check  >=~examDate1 ,  <=~examDate2|Check  =SAT  OR  =UNS  OR 

=GOOD  OR  =EXC  I 


EndQuery 

endlf 

emptyC'DETA") 

emptyC'DETAr) 

executeQBE(myQuery,  "DETA.db") 
executeQBE(myQuery1 ,  "DETA1  .db") 
tbl.attachCDETA") 
tbl1.attach("DETA1") 

numberOfSatsProgramGrades=tbl.cCount("DETA_Grade") 
msglnfo("DETA","The  total  number  of  sats  are " 
+strVal(NumberOfSatsProgramGrades)) 
TotalNumberOfProgramGrades=tbl  1  .cCount("DETA_Grade”) 
if  totalNumberOfProgramGrades  <>  0  then 
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Object : 
Method  Name : 
Source : 


msglnfo("DETA",’The  total  number  of  grades  are " 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)  100 

msglnfo("DETA”,"The  sat  percentage  is " 

+strVal(satPercentageProgramGrades)) 

gIsg 

msgStop("Problem",'The  total  number  of  DETA  Grades  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percenf) 

TC.editO 

tc.insertRecordO 

tc.rPercentage")=SatPercentageProgramGrades 

tc.(TropType")="DETA" 

tc.CPropTypel  ")=examType 

tc.fexamDatel  ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.MGTESR_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbil  table 

numberOfSatsProgramGrades  Number 

totalNumberOfProgramGrades  Number 

satPercentageProgramGrades  Number 

myQuery  Query 

myQueryl  Query 

myQuery2  Query 

examDatel  Date 

examDate2  Date 

PropType  String 

examType  String 

endVar 

doDefault 

examDatel  =date("01/01/00") 
examDate2=dateC'12/31/99") 
propType="GT" 
examType="OPPE" 

examDatel  .view("Enter  start  date  (I.E.  01/01/95)") 
examDate2.viewCEnter  stop  date  (I.E.  01/01/95y') 
propType.viewC'Enter  prop  type  (GT/STM/DSL)") 
switch 

case  propType="GT': 
case  propType="STM": 
case  propType="DSL": 
case  propType="ALL": 


224 


otherwise: 

msgStop("Problem";The  choices  for  Propulsion  Type 


are  GT,  STM.  DSL,  ALL  only!") 


return 

endSwitch 


examType.viewC’Enter  (OPPE/REOPPE/LOE/RELOE)") 
switch 

case  examType="OPPE": 
case  examType="REOPPE"; 
case  examType="LOE": 
case  examType="RELOE": 
otherwise: 

msgStoprProblem","The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only! ) 
return 
endSwitch 


if  propType="ALL"  then 
myQuery=Query 

ANSWER:  :PR1V:ANSWER.DB 

EXAM.DB  1  ExamlD_Ship_ShipName_FK2  |  ExamType  1 
I  _EG01  I  Check  =~examTypel 

SHIP.DB  I  ShipName  |PropType  | 

I  _EG02,  _EG01  ICheck  i 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6  |  PMJD_ExamEndDate  |MGTESR_Grade 

'  I  Check  _EG02  I  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER:  :PRlV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  i  ExamType  I 
j  _EG01  I  Check  =~examTypel 

SHIP.DB  I  ShipName  jPropType  I 
I  _EG02,  _EG01  ICheck  I 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6 1  PM_ID_ExamEndDate  lMGTESR_Grade| 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =SAT  OR  =UNS  OR 

=GOOD  OR  =EXC| 


EndQuery 


else 

myQuery=Query 
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ANSWER;  :PRIV:ANSWER.DB 


EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examTypel 

SHIP.DB  I  ShipName  |PropType  | 

I  _EG02,  _EG01  [Check  =~propType| 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6  j  PMJD_ExamEndDate  |MGTESR_Grade 

'  I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT| 


EndQuety 

myQuery1=Quefy 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  [ 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  jPropType  [ 

I  _EG02,  _EG01  [Check  =~propType[ 

PROGRAMM.DB  [  PMJD_Ship_ShipName_FK6  [  PMJD_ExamEndDate  [MGTESR_Grade[ 

[  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2[Check  =SAT  OR  =UNS  OR 

=GOOD  OR  =EXC[ 


EndQuery 

endlf 

emptyC’MGTESR") 
empty("MGTESR1") 
executeQBE(myQuery,  "MGTESR.db") 
executeQBE(myQuery1 ,  "MGTESR1  .db") 
tbl.attachC'MGTESR") 
tbl1.attachrMGTESR1") 

numberOfSatsProgramGrades=tbl.cCount("MGTESR_Grade") 
msglnfo("MGTESR'','The  total  number  of  sats  are  ” 

+strVal(NumberOfSatsProgramGrades)) 
TotalNumberOfProgramGrades=tbl1.cCountC'MGTESR_Grade") 
if  totalNumberOfProgramGrades  <>  Othen 
msglnfoC'MGTESR","The  total  number  of  grades  are " 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 

msglnfoC'MGTESR","The  sat  percentage  is " 

+stf\/al(satPercentageProgramGrades)) 

6lSG 

msgStop("Problem","The  total  number  of  MGTESR  Grades  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent”) 
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Object : 
MethodName : 
Source : 


TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.("PropType")="MGTESR" 

tc.("PropType1  ")=examType 

tc-CexamDatel  ")=examDate1 

tc.rexamDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.HEARING_CONSERVE_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 

numberOfSatsProgramGrades  Number 

totalNumberOfProgramGrades  Number 

satPercentageProgramGrades  Number 

myQuery  Query 

myQueryl  Query 

myQuer^  Query 

examDatel  Date 

examDate2  Date 

PropType  String 

examType  String 

endVar 

doDefault 

examDatel  =date("01  /01 100”) 
examDate2=date("12/31/99") 
propType="GT” 
examType="OPPE" 

examDatel  .viewC'Enter  start  date  (I.E.  01/01/95)") 
examDate2.viewrEnter  stop  date  (I.E.  01/01/95)") 
propType.viev^C'Enter  prop  type  (GT/STM/DSL)") 
switch 

case  propType="Gr': 
case  propType="STM": 
case  propType="DSL": 
case  propType="ALL": 
otherwise; 

msgStopC’Problem".’The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 

examType.viewrEnter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case  examType="OPPE"; 
case  examType="REOPPE": 
case  examType="LOE": 
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case  examType="RELOE''; 
othsrwisGi 

msgStop("Problem'',"The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only!”) 
return 
endSwitch 

if  propType="ALL''  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  1  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  |PropType  | 

1_EG02,_EG01  [Check  I 

PROGRAMM.DB  |  PM_ID_Ship_ShipName_FK6  \  PMJD_ExamEndDate  [HearingConsGrade 

'  I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SATl 

EndQuery 

myQuery1=Query 

ANSWER:  :PRlV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  [  ExamType  I 
I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  [PropType  | 

1_EG02,_EG01  [Check  I 

PROGRAMM.DB  [  PM_ID_Ship_ShipName_FK6  [  PM_lD_ExamEndDate  [HearingConsGrade 

'  [  Check  _EG02  j  Check  >=~examDate1 ,  <=~examDate2[Check  =EXC  OR  =GOOD  OR 

=SAT  OR  =UNS[ 

EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  [  ExamlD_Ship_ShipName_FK2  [  ExamType  [ 

I  _EG01  [  Check  =~examType[ 

SHIP.DB  [  ShipName  [PropType  [ 

[  _EG02,  _EG01  [Check  =~propType[ 

PROGRAMM.DB  [  PMJD_Ship_ShipName_FK6  [  PM_ID_ExamEndDate  [HearingConsGrade 

^  [  Check  _EG02  [  Check  >=~examDate1 ,  <=~examDate2[Check  =EXC  OR  =GOOD  OR 

=SAT[ 

EndQuery 
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Object ; 
MethodName 
Source : 


myQueryl  =Query 
ANSWER:  ;PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  1  ExamType  1 
1  _EG01  I  Check  =~examTypel 

SHIP.DB  I  ShipName  jPropType  | 

I  _EG02,  _EG01  ICheck  =~propType| 

PROGRAMM.DB  |  PM_ID_Ship_ShipName_FK6  |  PM_ID_ExamEndDate  |HearingConsGrade 

'  I  Check  _EG02  I  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT  OR  =UNSj 

EndQuery 

endlf 

emptyCHEARCON”) 
emptyC’HEARCONr) 
executeQBE(myQuery,  "HEARCON.db") 
executeQBE(myQuery1 ,  "HEARCON1  .db") 
tbl.attach("HEARCON") 
tbl1.attachrHEARCON1") 

numberOfSatsProgramGrades=tbl.cCountC'HearingConsGrade") 
msgInfoC'Hearing  Conservation'', The  total  number  of  sats  are " 
+strVal(NumberOfSateProgramGrades)) 
TotalNumberOfProgramGrades=tbI1.cCountC'HearingConsGrade'') 
if  totalNumberOfProgramGrades  <>  0  then 
msglnfofHearing  Conservation", "The  total  number  of  grades  are " 
+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 

msgInfoC'Hearing  Conservation" ,"The  sat  percentage  is " 

+strVal(satPercentageProgramGrades)) 

6lS6 

msgStop("Problem","The  total  number  of  Hearing  Conservation  grades  is  0,  you  cannot  divide  by  Ol") 
return 
endlf 

tc.openC'percenf) 

TC.editO 

tc-insertRecordO 

tc.C'Percentage")=SatPercentageProgramGrades 

tc.rPropType")="HC" 

tc.C'PropTypet  ")=examType 

tc.("examDate1  ")=examDate1 

tc.C'examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.TAGOUT_BUTTON 
:  push  Button 

method  pushButton(var  eventinfo  Event) 
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var 

tc  tCursor 
tbi  table 
tbl1  table 

numberOfSatsProgramGrades  Number 

totalNumberOfProgramGrades  Number 

satPercentageProgramGrades  Number 

myQuery  Query 

myQueryl  Query 

myQuer^  Query 

examDatel  Date 

examDate2  Date 

PropType  String 

examType  String 

endVar 

doDefault 

examDatel  =date("01  /01 100") 
examDate2=dateC’1 2/31/99") 
propType="GT" 
examType="OPPE" 

examDatel  .view("Enter  start  date  (I.E.  01/01/95)") 
examDate2.viewCEnter  stop  date  (I.E.  01/01/95y') 
propType.view("Enter  prop  type  (GT/STM/DSL)") 
switch 

case  propType="GT": 
case  propType="STM": 
case  propType="DSL": 
case  propType="ALL"; 
othenwise: 

msgStopC'Problem",'The  choices  for  Propulsion  Type  are  GT,  STM,  or  DSL  only!") 
return 
endSwitch 

examType.viewC'Enter  (OPPE/REOPPE/LOE/RELOE)") 
switch 

case  examType="OPPE": 
case  examType="REOPPE": 
case  examType="LOE": 
case  examType="RELOE": 
otherwise: 

msgStop("Problem","The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only!") 
return 
endSwitch 

if  propType="ALL"  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EX/WI.DB  i  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  |PropType  | 

I  _EG02,  _EG01  ICheck  | 
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ITagoutGrade 


PROGRAMM.DB  1  PM_ID_Ship_ShipName_FK6  ]  PM_ID_ExamEndDate 

1  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2lCheck  =EXC  OR  =GOOD  OR 

=SATl 


EndQuery 

myQuery1=Query 

ANSWER:  ;PRIV;ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  [PropType  | 

1_EG02,_EG01  ICheckI 

PROGRAMM.DB  |  PM_ID_Ship_ShipName_FK6  |  PM_ID_ExamEndDate  |TagoutGrade| 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2lCheck  =SAT  OR  =UNS  OR 

=GOOD  OR  =EXC  I 


EndQuery 

else 

myQueiy=Query 
ANSWER:  :PRlV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  I  ExamType  | 

I  _EG01  I  Check  =~examTypel 

SHIP.DB  I  ShipName  [PropType  I 
I  _EG02,  _EG01  [Check  =~propType[ 

PROGRAMM.DB  j  PMJD_Ship_ShipName_FK6  [  PMJD_ExamEndDate  [TagoutGrade 

[  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2[Check  =EXC  OR  =GOOD  OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER:  :PRlV:ANSWER.DB 

EXAM.DB  [  ExamlD_Ship_ShipName_FK2  [  ExamType 
I  _EG01  [  Check  =~examType[ 

SHIP.DB  I  ShipName  [PropType  | 

[  _EG02,  _EG01  [Check  =~propType[ 


231 


Object : 
MethodName : 
Source ; 


PROGRAMM.DB  1  PMJD_Ship_ShipName_FK6  |  PMJD_ExamEndDate  |TagoutGrade| 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =SAT  OR  =UNS  OR 

=GOOD  OR  =EXC  I 


EndQuery 

endlf 

emptyCTAGOUT") 

empty(TAGOUr) 

executeQBE(myQuery,  "TAGOUT.db") 
execiiteQBE(myQuery1 ,  TAGOUT  1  .db") 
tbI.attachCTAGOUT") 
tbl1.attach(TAGOUT1") 

numberOfSatsProgramGrades=tbl.cCount("TagOutGrade") 
msgInfoC'Tag  Ouf.'The  total  number  of  sats  are " 

+strVal(NumberOfSatsProgramGrades)) 
TotalNumberOfProgramGrades=tbl1.cCount('TagOutGrade") 
if  totalNumberOfProgramGrades  <>  0  then 
msgInfoC'Tag  Out" , The  total  number  of  grades  are " 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 

msgInfoC'Tag  Out", "The  sat  percentage  is " 

+strVal(satPercentageProgramGrades)) 

else 

msgStop("Problem","The  total  number  of  Tag  Out  grades  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openfpercent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.("PropType")="TAGOUT" 

tc.("PropType1  ")=examType 

tc.C'examDatel  ")=examDate1 

tc.rexamDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.FOQM_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
.  tbi  table 
tbl1  table 

numberOfSatsProgramGrades  Number 
totalNumberOfProgramGrades  Number 
satPercentageProgramGrades  Number 
myOuery  Query 
myQueryl  Query 
myQuer^  Query 
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examDatel  Date 
examDate2  Date 
PropType  String 
examType  String 
endVar 

doDefault 

examDatel  =dateC'01  /01  /OO") 
examDate2=dateri  2/31 199") 
propType=''GT" 
examType=''OPPE" 

examDatel -viewC'Enter  start  date  (I.E.  01/01/95)") 
examDate2.viewCEnter  stop  date  (I.E.  01/01 /SSy") 
propType.viewC'Enter  prop  type  (GT/STM/DSL)") 
switch 

case  propType="GT"; 
case  propType="STM": 
case  propType="DSL": 
case  propType="ALL": 
otherwise: 

msgStopC'Problem","The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 

examType.viewrEnter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case  examType="OPPE'': 
case  examType="REOPPE": 
case  examType="LOE": 
case  examType="RELOE"; 
otherwise: 

msgStop(''Problem",’The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only!") 
return 
endSwitch 

if  propType="ALL"  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EX/\M.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  1  Check  =~examTypel 

SHIP.DB  I  ShipName  jPropType  | 

1  _EG02.  _EG01  [Check  1 

PROGRAMM.DB  [  PMJD_Ship_ShipName_FK6  |  PMJD_ExamEndDate  lFOQM_Grade 

I 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate21Check  =EXC  OR  =GOOD  OR 

=SAT  I 


EndQuery 

myQuery1=Query 


233 


ANSWER;  ;PRIV:ANSWER.DB 


EXAM.DB  1  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  |PropType  | 

|_EG02,_EG01  ICheckl 

PROGRAMM.DB  I  PM_ID_Ship_ShipName_FK6  |  PM_ID_ExamEndDate  |FOQM_Grade| 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =SAT  OR  =UNS  OR 

=GOOD  OR  =EXCl 


EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  jPropType  I 
I  _EG02,  _EG01  ICheck  =~propType| 

PROGRAMM.DB  |  PM_ID_Ship_ShipName_FK6  |  PM_ID_ExamEndDate  |FOQM_Grade 

I  Check  _EG02  I  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER;  ;PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  I  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  [PropType  | 

I  _EG02,  _EG01  ICheck  =~propType| 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6  [  PMJD_ExamEndDate  |FOQM_Grade| 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =:SAT  OR  =UNS  OR 

=GOOD  OR  =EXC| 


EndQuery 

endlf 


emptyC'FOQM*') 

empty("FOQM1") 
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Object : 
MethodName 
Source : 


executeQBE(myQuery,  "FOQM.db") 
executeQBE(myQuery1 ,  "FOQM1  .db") 
tbI.attachC'FOQM") 
tbl1.attachrFOQM1") 

numberOfSatsProgramGrades=tbl.cCount("FOQM_Grade'') 
msglnfo("FOQM",'The  total  number  of  sats  are " 

+strVal(NumberOfSatsProgramGrades)) 
TotalNumberOfProgramGrades=tbl1.cCount("FOQM_Grade’') 
if  totalNumberOfProgramGrades  <>  0  then 
msglnfo("FOQM","The  total  number  of  grades  are " 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 

msglnfo("FOQM","The  sat  percentage  is " 

+strVal(satPercentageProgramGrades)) 

@|S0 

msgStop(''Problem",'The  total  number  of  FOQM  Grades  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.("PropType")="FOQM" 

tc.C'PropTypel  ")=examType 

tc.("examDate1  ")=examDate1 

tc.fexamDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.QA_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
toll  table 

numberOfSatsProgramGrades  Number 

totalNumberOfProgramGrades  Number 

satPercentageProgramGrades  Number 

myQuery  Query 

myQueryt  Query 

myQuery2  Query 

examDatet  Date 

examDate2  Date 

PropType  String 

examType  String 

endVar 

doDefault 

examDatet  =date("01/01/00") 
examDate2=date("1 2/31  /99") 
propType="GT'' 
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examType="OPPE" 

examDatel  .viewC'Enter  start  date  (I.E.  01/01/95)") 
examDate2.view("Enter  stop  date  (I.E.  01/01/95)") 
propType.viewC'Enter  prop  type  (GT/STM/DSL)") 
switch 

case  propType="GT": 
case  propType="STM": 
case  propType="DSL": 
case  propType="ALL": 
otherwise: 

msgStop("Problem","The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 

examType.view("Enter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case  examType="OPPE": 
case  examType="REOPPE": 
case  examType="LOE": 
case  examType="RELOE": 
otherwise: 

msgStopC'Problem","The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only!") 
return 
endSwitch 

if  propType="ALL"  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EX/WI.DB  I  ExamID_Ship_ShipName_FK2  ]  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  [PropType  1 
|_EG02,_EG01  ICheckI 

PROGRAMM.DB  |  PM_ID_Ship_ShipName_FK6  I  PM_ID_ExamEndDate  lQA_Grade 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2| Check  =EXC  OR  =GOOD  OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  [ 

I  _EG01  I  Check  =~examType| 

SHIP.DB  i  ShipName  |PropType  | 

I  _EG02,  _EG01  ICheck  | 

PROGRAMM.DB  |  PM_ID_Ship_ShipName_FK6  1  PM_ID_ExamEndDate 
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|QA_Grade| 


I  Check  >=~examDate1 ,  <=~examDate2|Check  =SAT  OR  =UNS  OR 


|Check_EG02 
=GOODOR=EXC  I 


EndQuery 

else 

myQuery=Query 
ANSWER;  :PRIV:ANSWER.DB 

EXAM.DB  I  ExannlD_Ship_ShipName_FK2 1  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  IPropType  I 
I  _EG02,  _EG01  [Check  =~propType| 

PROGRAMM.DB  [  PMJD_Ship_ShipName_FK6  j  PMJD_ExamEndDate  |QA_Grade 

'  I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV;ANSWER.DB 

EXAM.DB  I  ExamID_Ship_ShipName_FK2  j  ExamType  j 
I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  [PropType  | 

I  _EG02,  _EG01  [Check  =~propType| 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6  [  PMJD_ExamEndDate  [QA_Grade[ 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2[Check  =SAT  OR  =UNS  OR 

=GOODOR=EXC  I 


EndQuery 

endlf 

emptyC'QA") 

emp1y("QA1") 

executeQBE(myQuery,  "QA.db") 
executeQBE(myQuery1 ,  "QA1  .db") 
tbI.attachfQA") 
tbl1.attach(’’QAr) 

number0^atsProgramGrades=tbl.cCountC’QA_Grade") 
msglnfoCQualHy  Assurance", "The  total  number  of  sats  are " 
+strVal(NumberOfSatsProgramGrades)) 

T  otalNumberOfProgramGrades=tbl1  .cCount("QA_Grade") 
if  totalNumberOfProgramGrades  <>  0  then 
msglnfofQuality  Assurance", "The  total  number  of  grades  are 
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Object ; 
MethodName : 
Source : 


+str\/al(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/lotalNumberOfProgramGrades)*100 

msgInfoC'Quality  Assurance", "The  sat  percentage  is " 

+str\/al(satPercentageProgramGrades)) 

6iS6 

msgStop("Problem","The  total  number  of  Quality  Assurance  grades  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tcJnsertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.rPropType")="QA" 

tc.("PropType1  ")=examType 

tc.fexamDatel  ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.ELECTRICAL_SAFETY_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 

numberOfSateProgramGrades  Number 

totalNumberOfProgramGrades  Number 

satPercentageProgramGrades  Number 

myQuery  Query 

myQueryl  Query 

myQuery2  Query 

examDatel  Date 

examDate2  Date 

PropType  String 

examType  String 

endVar 

doDefault 

examDatel  =date("01/01/00") 
examDate2=date("12/31/99") 
propType="GT" 
examType="OPPE" 

examDatel  .vie\w("Enter  start  date  (I.E.  01/01/95)") 
examDate2.view("Enter  stop  date  (I.E.  01/01/95y') 
propType.viewfEnter  prop  type  (GT/STM/DSL)") 
switch 

case  propType="GT": 
case  propType="STM": 
case  propType="DSL": 
case  propType="ALL": 
otherwise; 
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msgStop("Problem'’,'The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 

examType.viewrEnter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case  examType="OPPE": 
case  examType="REOPPE'': 
case  examType="LOE": 
case  examType="RELOE": 
otherwise: 

msgStop("ProbIem","The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only!') 
return 
endSwitch 

if  propType="ALL"  then 
myQuery=Query 

ANSWER;  ;PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

1  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  jPropType  | 

|_EG02,_EG01  ICheckI 

PROGRAMM.DB  I  PMJD_Ship_ShipName_FK6  |  PMJD_ExamEndDate  |ElectSafetyGrade 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SATl 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  |PropType  | 

1_EG02,_EG01  ICheckI 

PROGRAMM.DB  |  PM_ID_Ship_ShipName_FK6  |  PM_ID_ExamEndDate  |ElectSafetyGrade| 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =SAT  OR  =UNS  OR 

=GOOD  OR  =EXC  I 


EndQuery 

else 

myQuery=Query 


ANSWER;  :PRIV:ANSWER.DB 
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EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  IPropType  | 

I  _EG02,  _EG01  ICheck  =~propType| 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6  |  PMJD_ExamEndDate  |ElectSafetyGrade 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT| 


EndQuery 

myQuery1*Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  I 
I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  |PropType  | 

I  _EG02,  _EG01  ICheck  =~propType| 

PROGRAMM.DB  I  PMJD_Ship_ShipName_FK6 1  PMJD_ExamEndDate  lElectSafetyGradel 

I  Check _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =SAT  OR  =UNS  OR 

=GOOD  OR  =EXC  I 


EndQuery 

endlf 

emptyC'ELECSAF") 
emptyC'ELECSAFI") 
executeQBE(myQuery,  "ELECSAF.db") 
executeQBE(myQuery1 ,  "ELECSAF1  .db") 
tbl.attach("ELECSAF") 
tbl1  .attach("ELECSAF1 ") 

numberOfSatsProgramGrades=tbl.cCount("ElectSafetyGrade") 
msgInfoC'Electrical  Safety", "The  total  number  of  sats  are " 

+strVal(NumberOfSateProgramGrades)) 
TotalNumberOfProgramGrades=tbl1.cCountC'ElectSafetyGrade") 
if  totalNumberOfProgramGrades  <>  0  then 
msgInfoC'Electrical  Safety", "The  total  number  of  grades  are " 
+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 
msgInfoC'Electrical  Safety" ,'The  sat  percentage  is " 

+strVal(satPercentageProgramGrades)) 

else 

msgStop("Problem","The  total  number  of  Electrical  Safety  Grades  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 
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Object : 
MethodName ; 
Source : 


tc-insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.C’PropType")="ES’' 

tc.("PropT  ype1  ")=examType 

tc.("examDate1  ")=examDate1 

tc.  ("exam  Date2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.0PERATING_LOGS_BUTTON 

pushButton 

method  pushButton (var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 

numberOfSatsProgramGrades  Number 

totalNumberOfProgramGrades  Number 

satPercentageProgramGrades  Number 

myQuery  Query 

myQueryt  Query 

myQuery^  Query 

examDatel  Date 

examDate2  Date 

PropType  String 

examType  String 

endVar 

doDefault 

examDatel  =date("01  /01  /00“) 
examDate2=dateri  2/31/99") 
propType=”GT" 
examType=''OPPE" 

examDatel  .viewC'Enter  start  date  (I.E.  01/01/95)") 
examDate2.viewrEnter  stop  date  (I.E.  01/01/95)") 
propType.viewC'Enter  prop  type  (GT/STM/DSL)") 
svritch 

case  propType="GT": 
case  propType=''STM": 
case  propType="DSL": 
case  propType="ALL": 
otherwise: 

msgStop("Problem","The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 

examType.viewC'Enter(OPPE/REOPPE/LOE/RELOE)") 

sv\/itch 

case  examType=''OPPE": 
case  examType="REOPPE": 
case  examType="LOE": 
case  examType="RELOE": 
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msgStopC’Problem",'The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only!") 
return 
endSwitch 

if  propType=''ALL"  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2 1  ExamType  1 
I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  jPropType  | 

I  _EG02,  _EG01  ICheck  | 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6  \  PMJD_ExamEndDate  [OpLogsGrade 

*  I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT  I 


EndQuery 

myQuery1=Query 

ANSWER:  :PRI\/:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  jPropType  I 
I  _EG02,  _EG01  ICheck  | 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6  |  PM_ID_ExamEndDate  JOpLogsGr^e  | 

I  Check  _EG02  I  Check  >=~examDate1 ,  <=~examDate2|Check  =SAT  OR  -UNS  OR 

=GOOD  OR  =EXC  I 


EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  |PropType  | 

|_EG02,_EG01  ICheck  =~propType| 

PROGRAMM.DB  I  PMJD_Ship_ShipName_FK6 1  PMJD_ExamEndDate  lOpLogsGrade 

^  I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 
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=SAT1 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examTypel 

SHIP.DB  I  ShipName  |PropType  \ 

I  _EG02,  _EG01  [Check  =~propTypel 

PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6  |  PMJD_ExamEndDate  [OpLogsGrade  | 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2iCheck  =SAT  OR  =UNS  OR 

=GOODOR=EXC  I 


EndQuery 

endlf 

emptyfOPLOGS’’) 
empty("OPLOGS1") 
executeQBE(myQuery,  "OPLOGS.db") 
executeQBE(myQuery1,  "OPLOGS1  .db") 
tbI.attachC'OPLOGS") 
tbl1.attachC’OPLOGS1") 

numberOfSatsProgramGrades=tbl.cCount("OpLogsGrade") 
msgInfoC'Operation  Logs", "The  total  number  of  sats  are " 

+strVal(NumberOfSatsProgramGrades)) 

TotalNumberOfProgramGrades=tbl1  .cCountfOpLogsGrade") 
if  totalNumberOfProgramGrades  <>  0  then 
msgInfoC'Operation  Logs", The  total  number  of  grades  are " 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 
msgInfoC'Operation  Logs","The  sat  percentage  is " 

+strVal(satPercentageProgramGrades)) 

else 

msgStop("Problem",*The  total  number  of  Operation  Logs  Grades  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.C'PropType")=''OPLOGS'' 

tc.("PropType1  ")=examType 

tc.("examDate1  ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 
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Object :  #Page2.#Box3.DJWTT_BUTTON 

MethodName ;  pushButton 

Source  :  method  pushButton(var  eventinfo  Event) 

var 

tc  tCursor 
tbi  table 
tbl1  table 

numberO^atsProgramGrades  Number 

totalNumberOfProgramGrades  Number 

satPercentageProgramGrades  Number 

myOuery  Query 

myQueryl  Query 

myQuer^  Query 

examDatel  Date 

examDate2  Date 

PropType  String 

examType  String 

endVar 

doDefault 

examDatel  =date("01  /01  /OO") 
examDate2=date("12/31/99”) 
propType="GT" 
examType=''OPPE" 

examDatel  .viewC'Enter  start  date  (I.E.  01/01/95)") 
examDate2.view("Enter  stop  date  (I.E.  01/01/95y’) 
propType.viev^C'Enter  prop  type  (GT/STM/DSL)") 
switch 

case  propType="GT": 
case  propType="STM"; 
case  propType="DSL": 
case  propType="ALL": 
otherwise: 

msgStop("Problem","The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  ALL  only!") 
return 
endSwitch 

examType.viewrEnter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case  examType="OPPE": 
case  examType="REOPPE": 
case  examType="LOE": 
case  examType="RELOE": 
otherwise: 

msgStop("Problem","The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  only! ) 
return 
endSwitch 

if  propType="ALL"  then 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 
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EXAM.DB  1  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  |PropType  | 

|_EG02,_EG01  ICheckl 

PROGRAMM.DB  I  PMJD_Ship_ShipName_FK6 1  PMJD_ExamEndDate  lDJWTT_Grade 

I  Check  _EG02  I  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SATl 


EndQuery 

myQuery1=Query 

ANSWER;  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  \  ExamType  I 
I  _EG01  I  Check  =~examTypel 

SHIP.DB  I  ShipName  [PropType  I 
I  _EG02,  _EG01  [Check  | 

PROGRAMM.DB  |  PM_ID_Ship_ShipName_FK6 1  PMJD_ExamEndDate  |DJWTT_Grade  | 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =SAT  OR  =UNS  OR 

=GOOD  OR  =EXC  I 


EndQuery 

else 

myQuery=Query 
ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  I 
I  _EG01  I  Check  =~examType| 

SHIP.DB  I  ShipName  [PropType  [ 

[  _EG02,  _EG01  [Check  =~propType| 

PROGRAMM.DB  |  PM_ID_Ship_ShipName_FK6  [  PMJD_ExamEndDate  [DJWTT_Grade 

'  I  Check  _EG02  [  Check  >=~examDate1 ,  <=~examDate2[Check  =EXC  OR  =GOOD  OR 

=SAT[ 

EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  [  ExamlD_Ship_ShipName_FK2  [  ExamType  [ 
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I  _EG01 


I  Check  =~examType| 


Object ; 
MethodName : 
Source : 


SHIP.DB  I  ShipName  |PropType  | 

I  _EG02,  _EG01  [Check  =~propType| 

PROGRAMM.DB  j  PM_ID_Ship_ShipName_FK6  j  PMJD_ExamEndDate  |DJWTT_Grade  j 

I  Check  _EG02  j  Check  >=~examDate1 ,  <=~examDate2|Check  =SAT  OR  =UNS  OR 

=GOOD  OR  =EXC  I 


EndQuery 

endlf 

emptyC'DJWTT") 

emptyC’DJWTTI") 

executeQBE(myQuery,  "DJWTT.db") 
executeQBE(myQuery1 ,  "DJWTT1  .db") 
tbI.attachC’DJWTT") 
tbl1.attach(''DJWm") 

numberOfSatsProgrannGrades=tbl.cCountC'DJWTT_Grade") 
msglnfoC'DJWTT",'The  total  number  of  sats  are " 

+strVal(NumberOfSatsProgramGrades)) 
TotalNumberOfProgramGrades=tbl1.cCount("DJWTT_Grade") 
if  totalNumberOfProgramGrades  <>  0  then 
msglnfoC'DJWTT'','The  total  number  of  grades  are " 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 

msglnfoC'DJWTr'.The  sat  percentage  is " 

+strVal(satPercentageProgramGrades)) 

0lS6 

msgStoprProblem",'The  total  number  of  DJWTT  Grades  is  0.  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tcJnsertRecordO 

tc.C'Percentage")=SatPercentageProgramGrades 

tc.f’PropType")=”DJWTr’ 

tc-fPropTypel  ")=examType 

tc.f  examDatet  ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.0LV_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 

numberOfSatsProgramGrades  Number 
totalNumberOfProgramGrades  Number 
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satPercentageProgramGrades  Number 

myQuery  Query 

myQueryl  Query 

myQuer^  Query 

examDatel  Date 

examDate2  Date 

PropType  String 

examType  String 

endVar 

doDefault 

examDatel  =dateC'01  /01  /OO") 
examDate2=dateC’1 2/31/99") 
examType="OPPE" 

examDatel  .viewC'Enter  start  date  (I.E.  01/01/95)") 
examDate2.view("Enter  stop  date  (I.E.  01/01/95)") 

examType.view("Enter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case  examType*"OPPE": 
case  examType="REOPPE": 
case  examType="LOE": 
case  examType="RELOE": 
othenrvise: 

msgStopC'Problem","The  choices  for  Exam  Type  are  OPPE,  REOPPE,  LOE,  or  RELOE  oniy!") 
return 
endSwitch 

myQuery=Query 

ANSWER;  :PRIV:ANSWER.DB 

EX/\M.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG01  1  Check  =~examType| 

SHIP.DB  I  ShipName  [PropType  | 

I  _EG02,  _EG01  [Check  =STM  j 

PROGR/\MM.DB  |  PM_ID_Ship_ShipName_FK6  j  PM_ID_ExamEndDate  |OLV_Grade 

I  Check  _EG02  |  Check  >=~examDate1 ,  <=~examDate2|Check  =EXC  OR  =GOOD  OR 

=SAT| 


EndQuery 

myQueryl  =Query 

ANSWER:  ;PRIVANSWER.DB 

EX/\M.DB  I  ExamlD_Ship_ShipName_FK2  j  ExamType 
I  _EG01  I  Check  =~examType| 

SHiP.DB  I  ShipName  [PropType  [ 
[_EG02,_EG01  [Check  =STM  [ 
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PROGRAMM.DB  |  PMJD_Ship_ShipName_FK6  1  PM_ID_ExamEndDate  |OLV_Grade| 

1  Check  _EG02  I  Check  >=~examDate1 ,  <=~examDate2lCheck  =SAT  OR  =UNS  OR 
=GOODOR=EXC  I 


EndQuery 

emptyC'OLV") 

emptyC'OLVr) 

executeQBE(myQuery,  "OLV.db") 
executeQBE(myQuery1 ,  "OLV1  .db") 
tbl.attachrOLV") 
tbH-attachfOLVI") 

numberOfSatsProgramGrades=tbl.cCount("OLV_Grade'') 

msgInfoC'Online  Verification", "The  total  number  of  sats  are " 

+strVal(NumberOfSatsProgramGrades)) 
TotalNumberOfProgramGrades=tbI1.cCount("OLV_Grade") 
if  totalNumberOfProgramGrades  <>  0  then 
msglnfofOnline  Verification", 'The  total  number  of  grades  are " 
+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)  100 

msgInfoC'Online  Verification","The  sat  percentage  is " 

+strVal(satPercentageProgramGrades)) 

else 

msgStopC'Problem","The  total  number  of  Online  Verification  grades  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.rPropType")="OLV' 

tc.fpropTypel  ")=examType 

tc.f  examDatel  ")=examDate1 

tc.CexamDate2")=examDate2 

tc.endEditO 

endmethod 
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Object : 
MethodName : 
Source : 


Object : 
MethodName 
Source : 


OPPE_LOE_MONTHLY_QUERY 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
var 

examMenu  Menu 
ReportPop  PopUpMenu 
AddPoP  PopUpMenu 
endVar 

if  eventlnfo-isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 

examMen  u.addT  extC'&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

editO 

endif 

endmethod 


OPPE_LOE_MONTHLY_QUERY 

menuAction 

method  menuAction(var  eventinfo  MenuEvent) 
var 

myRep  Report 
reply  String 
endVar 

if  eventlnfo-isPrePilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 


Svvitch 


else 

;  This  code  executes  only  for  the  form, 
case  eventInfo.menuChoiceO  ="&Help": 


case  eventInfo.menuChoiceO  ="&Quit": 
reply=msgQuestion("Quit","Are  you  sure  you  want  to  leave  this  form?”) 
If  reply  =  "Yes"  then 
closeO 
else 
return 
endif 

endSwitch 

endif 

endmethod 
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Object ; 
MethodName ; 
Source : 


Object ; 
MethodName 
Source : 


#Page2.#Button3 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tbl  tableView 
myQuery  Query 
examDatel  Date 
examDate2  Date 
endVar 

doDefault 

examDatel  =dateC'01/01 100") 
examDate2=dateC'12/31/99") 
examDatel  .view("Enter  start  date  (I.E.  01/01/95)") 
examDate2.view("Enter  stop  date  (I.E.  01/01/95)") 

myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  1  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  |  ExamType  | 

I  Check  _EG01  I  Check  >=~examDate1 ,  <=~examDate21  Check  1 

EXAM.DB  I  OverallFinding  |  Comments  i 
1  Check  I  Check  1 


EndQuery 
empty  ("Summary") 

if  executeQBE(myQuery,  "Summary.db")  then 

tbl.open("Summary") 

else 

msgStopC'Problem", "Could  not  open  summary  database.") 
endlf 

endmethod 


#Page4 

setFocus 

method  setFocus(var  eventinfo  Event) 
var 

examMenu  Menu 
ReportPop  PopUpMenu 
AddPoP  PopUpMenu 
endVar 

examMenu  .addT  ext("&Quit") 

examMenu. showO 

maximizeO 

hideSpeedBarO 

editQ 
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endmethod 


Object : 
MethodName : 
Source ; 


Object : 
MethodName ; 
Source : 


Object : 
MethodName 
Source : 


#Page4.#Box8.PRINT_REPORT_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

myRep  Report 
reply  String 
endVar 

reply=msgQuestion("\/ie>w  report" ."Have  you  updated  the  report  with  the  SUMMARY  query?") 
if  reply="Yes"  then 
myRep.print("Summary“) 
else 
return 
endlf 

endmethod 


#Page4.#Box8.VIEW_REPORT_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

myRep  Report 
reply  String 
m  menu 
endVar 

reply=msgQuestion('View  report" /'Have  you  updated  the  report  with  the  SUMMARY  query?") 
if  reply="Yes"  then 

myRep.openC'Summary",  WinStyleMaximize) 
hideSpeedBarO 

m.addTextn 

m.ShowO 

messageC'Shift-F4  for  next  page,  Shift-F3  for  previous  page,  Ctrl-F4  to  close  report") 
else 
return 
endlf 

endmethod 


#Page4.#Box8.SUMMARY_QUERY_BUTTON 
;  pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tbi  tableView 
myOuery  Query 
examDatef  Date 
examDate?  Date 
endVar 
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doDefault 

examDatel  =date("01/01 100") 
examDate2=date("12/31/99") 
examDatel  .view("Enter  start  date  (l.E.  01/01/95)") 
examDate2.view("Enter  stop  date  (l.E.  01/01/95)") 

myQuery=Query 

ANSWER;  :PR1V:ANSWER.DB 

EX/\M.DB  1  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  1  ExamType  | 

I  Check  _EG01  |  Check  >=~examDate1 ,  <=~examDate2|  Check  | 

EX/WI.DB  I  OverallFinding  |  Comments  1 
I  Check  I  Check  | 


EndQuery 
empty  ("Summary") 

if  executeQBE(myQuery,  "Summary.db")  then 
msglnfoCSummary","The  Summary  Query  was  successful.") 
:  tbI.openC'Summary") 
else 

msgStopC'Problem", "Could  not  open  summary  database.") 
endlf 

endmethod 
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Object : 
MethodName : 
Source : 


Object : 
MethodName : 
Source : 


EVOLUTIONS_DRILLS_QUERY 

Const 

Const 

ViewFlex1=301 

ViewFlex2=302 

ViewFlex3=303 

ViewFlex4=304 

ViewFlex5=305 

ViewFlex6=306 

PrintFlex1=313 

PrintFlex2=314 

PrintFlex3=315 

PrintFlex4=316 

PrintFlex5=317 

PrintFlex6=318 

endConst 


EVOLUTIONS_DRILLS_QUERY 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
var 

tcTcursor 

examMenu,  View,  Print,  ReportMenu  Menu 

PrintPop  PopUpMenu 

ViewPop  PopUpMenu 

ViewFlexPop  PopUpMenu 

PrintFlexPop  PopUpMenu 

examtype  PopupMenu 

endVar 

if  eventlnfo-isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 

PrintPop.addTextfEvolutions  Section  T','"',PrintFlex1) 
PrintPop.addTextfDrills  Section  1","",PrintFlex4) 
PrintPop.addTextfEvolutions  Section  2'',"",PrintFlex2) 
PrintPop.addTextCDiills  Section  2","",PrintFlex5) 
PrintPop.addTextfEvolutions  Section  3","",PrintFlex3) 
PrintPop.addText("Drills  Section  3","",PrintFlex6) 

PrintPop.addT  ext("&Graph") 

ViewPop.addTextC'Evolutions  Section  r,"",ViewFlex1) 
ViewPop.addTextf  Drills  Section  1 ViewFlex4) 
ViewPop.addTextC'Evolutions  Section  2","",ViewFlex2) 
ViewPop.addTextC'Drills  Section  2","",ViewFlex5) 
ViewPop.addTextC'Evolutions  Section  3","",ViewFlex3) 
ViewPop.addTextC'Drills  Section  3","",ViewFlex6) 
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Object ; 
MethodName : 
Source : 


examMenu.addPopUp("&View",  ViewPop) 
examMenu.addPopUPC&Prinf,  PrintPop) 
examMenu.addText("&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

tc.openfpercenf') 

tc.editO 

tc.emptyO 

tc.endEditO 

endif 

endmethod 


EVOLUTIONS_DRILLS_QUERY 

menuAction 

method  menuAction(var  eventinfo  MenuEvent) 
var 

myRep  Report 
reply  String 
choiceld  Smallint 
m  menu 
endVar 

choiceld=eventlnfo.idO 

if  eventInfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 

else 

;  This  code  executes  only  for  the  form. 


Switch 

case  eventInfo.menuChoiceO  ="&Help": 

case  eventInfo.menuChoiceO  =”&Quit"; 
reply=msgQuestionf  Quit", "Are  you  sure  you  want  to  leave  this  form?") 
If  reply  =  "Yes"  then 
closeO 
else 
return 
endif 

case  eventInfo.menuChoiceO  ="&Graph": 
myRep.printC'taskevol") 
endSwitch 
Switch 

case  choiceld  =\/iewFlex1 : 
myRep.open("tasksec1 ") 

hideSpeedBarO 

m.addTextC") 

m.showO 

case  choiceld  =ViewFlex2: 
myRep.open("tasksec2") 
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Object : 
MethodName : 
Source : 


Object : 


hideSpeedBarO 

m.addText("") 

m.showO 

case  choiceld  =\/iewFlex3: 
myRep.openC'tasksecS") 
hideSpeedBarO 
m.addText("") 
m.showO 

case  choiceld  =ViewFlex4: 
myRep.openC'drilsecI ") 
hideSpeedBarO 
m.addText("") 
m.showO 

case  choiceld  =\/iewFlex5: 
myRep.openC'drilsec2") 
hideSpeedBarO 
m.addTextC"’) 
m.showO 

case  choiceld  =ViewFlex6: 
myRep.open("drilsec3'') 
hideSpeedBarO 
m.addText("") 
m.showO 

case  choiceld  =PrintFlex1 : 
myRep.printC'tasksed  ’’) 
case  choiceld  =PrintFlex2: 
myRep.printC'tasksec2") 
case  choiceld  =PrintFlex3: 
myRep.printC'tasksec3") 
case  choiceld  =PrintFlex4: 
myRep.print("drilsec1 ") 
case  choiceld  =PrintFlex5: 

myRep.printC’drilsec2") 
case  choiceld  =PrintFlex6: 
myRep.print("drilsec3") 
endSwitch 
endif 

endmethod 


#Page2.#Box1 9.#Button25 
pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableView 
endVar 

newView.openC'drilsec3") 

endmethod 


#Page2.#Box1 9.#Button31 


MethodName :  pushButton 


Source : 


method  pushButton(var  eventinfo  Event) 
var 

tbi  table 
tbl1  table 

numberOfSats  Number 
totalNumberOfEvolutions  Number 
satPercentage  Number 
myQuery  Query 
myQueryt  Query 
examDate  Date 
PropType  String 
endVar 

doDefault 

examDate.viewC’Please  enter  the  desired  start  date.”) 
propType.viewC'Please  enter  the  desired  propulsion  type.") 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |  %ofSatDrill_2ndSec  | 

I  _EG01  I  Check  >=50  | 

SHIP.DB  I  ShipName  \  ExamEndDate  |  PropType  | 

I  Check  _EG02,_EG01  |  Check  >=~examDate|  Check  =~propType| 

EXAM.DB  I  ExamID_Ship_ShipName_FK2  [  ExamType  | 

I  _EG02  I  Check  =OPPE  \ 


EndQuery 
myQueryt  =Query 
ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |  %ofSatEvol_1stSec  | 

1  _EG01  I  Check  1 

OPERATIO.DB  |  %ofSatEvol_2ndSec  1  %ofSatEvol_3rdSec  |  %ofSatDrilMstSec  | 
I  Check  1  Check  I  Check  | 

OPERATIO.DB  |  %ofSatDrill_2ndSec  |  %ofSatDrill_3rdSec  | 

I  Check  I  Check  1 

SHIP.DB  I  ShipName  |  ExamEndDate  1  PropType  | 

I  Check  _EG02,  _EG01  |  Check  >=~examDate|  Check  =~propType| 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG02  1  Check  =OPPE  | 


EndQuery 
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executeQBE(myQuety,  "DrilSec2.db") 
executeQBE(myQuery1 ,  'Tas1  Sec1  .db") 


Object : 
MethodName : 
Source : 


tbi  .attach  ("DrilSec2") 
tbl1  .attachC’T  as1  Seel ") 

numberOfSats=tbl.cCount("%ofSatDrill_2ndSec") 
msglnfo("Section  Two", "The  total  number  of  sat  drill  sets  are " 
+stiVal(NumberOfSats)) 

TotalNumberOfEvolutions=tbl1.cCount("%ofSatDrill_2ndSec") 
msgInfoC'Section  Two", The  total  number  of  drill  sets  are " 
+strVal(totalNumberOfEvolutions)) 
SatPercentage=(numberOfSats/totalNumberOfEvolutions)*100 
msgInfoC'Section  Two",The  sat  drill  set  percentage  is " 
+stiVal(satPercentage)) 
endmethod 


#Page2.#Box1 9.#Button30 
pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tbI  table 
tbl1  table 

numberOfSats  Number 
totalNumberOfEvolutions  Number 
satPercentage  Number 
myQuery  Query 
myQueryl  Query 
examDate  Date 
PropType  String 
endVar 

doDefault 

examDate.view("Please  enter  the  desired  start  date.") 
propType.viewfPlease  enter  the  desired  propulsion  type.") 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |  %ofSatDrilL3rdSec  | 

I  _EG01  1  Check  >=50  | 

SHIP.DB  1  ShipName  |  ExamEndDate  |  PropType  1 

j  Check  _EG02,_EG01  |  Check  >=~examDate|  Check  =~propType| 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

|_EG02  |Check=OPPE| 


EndQuery 
myQueryl  =Query 
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ANSWER:  :PRIV:ANSWER.DB 


Object : 
MethodName : 
Source : 


Object ; 
MethodName 
Source : 


OPERATIO.DB  |  Operati_Ship_ShipName_FK3 1  %ofSatEvoMstSec  | 

1  _EG01  I  Check  | 

OPERATIO.DB  |  %ofSatEvol_2ndSec  |  %ofSatEvol_3rdSec  I  %ofSatDrill. 
I  Check  I  Check  I  Check  I 

OPERATIO.DB  |  %ofSatDrill_2ndSec  I  %ofSatDrill_3rdSec  | 

I  Check  I  Check  I 

SHIP.DB  I  ShipName  |  ExamEndDate  I  PropType  I 

I  Check  _EG02,_EG01  |  Check  >=~examDatel  Check  =~propType| 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG02  I  Check  =OPPE  | 


EndQuery 

executeQBE(myQuery,  "DrilSec3.db'') 
executeQBE(myQuery1 ,  "TasISed  .db") 

tbl.attach(''DrilSec3") 

tbl1.attach{'Tas1Sec1") 

numberOfSats=tbl.cCount("%ofSatDrill_3rdSec") 
msgInfoC’Section  Three”, The  total  number  of  sat  drill  sets  are " 
+strVal(NumberOfSats)) 

TotalNumberOfEvolutions=tbl1.cCount("%ofSatDrill_3rdSec") 
msglnfoC’Section  Three", "The  total  number  of  drill  sete  are  " 
+strVal(totalNumberOfEvolutions)) 
SatPercentage=(numberOfSats/totalNumberOfEvolutions)*100 

msglnfoC’Section  Three", 'The  sat  driil  set  percentage  is " 
+strVal(satPercentage)) 
endmethod 


#Page2.#Box1 9.#Button23 
pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableView 
endVar 

newView.open("drilsec2") 

endmethod 


#Page2.#Box1 9.#Button21 
pushButton 

method  pushButton(var  eventinfo  Event) 
var 


IstSec  I 
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Object : 
MethodName : 
Source : 


newView  tableView 
endVar 

newView.openC'drilsecI ") 
endmethod 


#Page2.#Box1 9.#Button9 
pushButton 

method  pushButton(var  eventlnfo  Event) 
var 

tbi  table 
tbl1  table 

numberOfSats  Number 
totalNumberOfEvolutions  Number 
satPercentage  Number 
myQuery  Query 
myQueryt  Query 
examDate  Date 
PropType  String 
endVar 

doDefault 

examDate.view("Please  enter  the  desired  start  date.") 
propType.viewC'Please  enter  the  desired  propulsion  type.") 
myQuery=Query 

ANSWER:  :PRiV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  I  “/oofSatOrilMstSec  I 
I  _EG01  I  Check  >=50  I 

SHIP.DB  i  ShipName  |  ExamEndDate  I  PropType  [ 

I  Check  _EG02,  _EG01 1  Check  >=~examDatel  Check  =~propTypel 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  \  ExamType  | 

I  _EG02  I  Check  =OPPE  | 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV;ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  I  %ofSatEvol_1stSec  | 

I  _EG01  I  Check  I 

OPERATIO.DB  |  %ofSatEvol_2ndSec  |  %ofSatEvol_3rdSec  |  %ofSatDrill_1stSec  | 
I  Check  I  Check  I  Check  | 

OPERATIO.DB  |  %ofSatDrilL2ndSec  |  %ofSatDrill_3rdSec  I 
I  Check  I  Check  | 
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Object : 
MethodName : 
Source ; 


Object : 
MethodName : 
Source : 


Object : 
MethodName : 


SHIP.DB  I  ShipName  |  ExamEndDate  |  PropType  | 

I  Check  _EG02,  _EG01  |  Check  >*~examDate|  Check  =~propType| 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  \  ExamType  | 

I  _EG02  I  Check  =OPPE  | 


EndQuery 

executeQBE(myQuery,  "DrilSecI  .db") 
executeQBE(myQuery1 ,  "TasISed  .db") 

tbI.attachC'DrilSecr') 
tbl1  .attach("Tas1  Sec1 ") 

numberOfSats=tbl.cCountC'%ofSatDriH_1stSec") 
msgInfoC'Section  One", "The  total  number  of  sat  drill  sets  are " 
+strVal(NumberOfSats)) 

TotalNumberOfEvolutions=tbl1.cCountC'%ofSatDrill_1stSec") 
msgInfoC'Section  One", "The  total  number  of  drill  sets  are " 
+str\/al(totalNumberOfEvolutions)) 
SatPercentage=(numberOfSats/totalNumberOfEvolutions)*100 
msgInfoC'Section  One","The  sat  drill  set  percentage  is  " 
+strVal(satPercentage)) 
endmethod 


#Page2.#Box1 1  .#Button1 5 
pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableView 
endVar 

newView.openC'T  as2sec1 ") 
endmethod 


#Page2.#Box11.#Button17 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableView 
endVar 

newView.openC'tas2sec3") 

endmethod 


#Page2.#Box1 1  .#Button1 3 
pushButton 
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Object ; 
MethodName ; 
Source : 


#Page2.#Box1 1  .#Button35 
pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tbi  table 
tbl1  table 

numberOfSats  Number 
totalNumberOfEvolutions  Number 
satPercentage  Number 
myQuery  Query 
myQueryt  Query 
examDate  Date 
PropType  String 
endVar 

doDefault 

examDate.viewC'Please  enter  the  desired  start  date.") 
propType.viewC'Please  enter  the  desired  propulsion  type.") 
myQuery=Query 

ANSWER;  :PRIV;ANSWER.DB 

OPERATIO.DB  I  Operati_Ship_ShipName_FK3  |  %ofSatEvol_3rdSec  | 

I  _EG01  I  Check  >=75  | 

SHIP.DB  I  ShipName  |  ExamEndDate  1  PropType  | 

I  Check  _EG02,_EG01  |  Check  >=~examDatel  Check  =~propType| 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 
l_EG02  |Check=OPPEi 


EndQuery 


myQuery1=Query 
ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3 1  %ofSatEvoMstSec  1 
1  _EG01  I  Check  I 

OPERATIO.DB  |  %ofSatEvol_2ndSec  |  %ofSatEvol_3rdSec  I 
I  Check  I  Check  I 
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Object ; 
MethodName : 
Source : 


SHIP.DB  I  ShipName  |  ExamEndDate  |  PropType  | 

1  Check  _EG02.  _EG01  |  Check  >=~examDatel  Check  =~propType| 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  I 
I  _EG02  I  Check  =OPPE  | 


EndQuery 

executeQBE(myQuery,  "T  as2Sec3.db") 
executeQBE(myQuery1 ,  "TasISecI  .db") 

tbl.attachCTas2Sec3") 
tbl1  .attachC'TasI  Sect ") 

numberOfSats=tbl.cCountr%ofSatEvoL3rdSec") 
msgInfoC'Section  Three", 'The  total  number  of  sat  evolution  sets  are 
+strVal(NumberOfSats)) 

TotalNumberOfEvolutions=tbl1.cCount("%ofSatEvol_2ndSec") 

msgInfoC'Section  Three", "The  total  number  of  evolution  sets  are " 
+str\/al(totalNumberOfEvolutions)) 
SatPercentage=(numberOfSats/totalNumberOfEvolutions)*100 
msgInfoC'Section  Three", "The  sat  evolution  set  percentage  is " 
+strVal(satPercentage)) 
endmethod 


#Page2.#Box1 1  .#Button36 
pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tbi  table 
tbl1  table 

numberOfSats  Number 
totalNumberOfEvolutions  Number 
satPercentage  Number 
myQuery  Query 
myQueryt  Query 
examDate  Date 
PropType  String 
endVar 

doDefault 

examDate.vievirC'Please  enter  the  desired  start  date.") 
propType.viewC'Please  enter  the  desired  propulsion  ^e.") 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3 1  %ofSatEvol_2ndSec  I 
I  _EG01  I  Check  >=75  | 

SHIP.DB  I  ShipName  |  ExamEndDate  I  PropType  | 
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Object : 
MethodName 
Source : 


I  Check  _EG02,_EG01  |  Check  >=~examDatel  Check  =~propType| 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2 1  ExamType  | 

I  _EG02  I  Check  =OPPE  \ 


EndQuery 

myQuery1=Query 

ANSWER:  :PRlV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |  %ofSatEvol_1stSec  | 

I  _EG01  I  Check  I 

OPERATIO.DB  I  %ofSatEvol_2ndSec  |  %ofSatEvol_3rdSec  | 

I  Check  I  Check  | 

SHIP.DB  I  ShipName  |  ExamEndDate  |  PropType  | 

I  Check  _EG02,  _EG01  |  Check  >=~examDate|  Check  =~propType| 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  j  ExamType  I 
|_EG02  |Check=OPPE| 


EndQuery 

executeQBE(myQuery,  "Tas2Sec2.db") 
executeQBE(myQuery1 ,  "Tas1  Sect  .db") 

tbi  .attach  C'T as2Sec2") 
tbl1  .attachC'T  as1  Sect ") 

numberOfSats=tbl.cCountf%ofSatEvol_2ndSec") 
msgInfoC'Section  Two", "The  total  number  of  sat  evolution  sets  are " 
+strVal(NumberOfSats)) 

T  otalNumberOfEvolutions=tbl1  .cCountC’%ofSatEvol_2ndSec") 
msgInfoC'Section  Two", "The  total  number  of  evolution  sets  are " 
+strVal(totalNumberOfEvoiutions)) 
SatPercentage=(numberOfSats/totalNumberOfEvolutions)*100 
msgInfoC'Section  Two","The  sat  evolution  percentage  is " 
+strVal(satPercentage)) 
endmethod 


#Page2.#Box11.#Button3 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tbI  table 
tbl1  table 

numberOfSats  Number 
totalNumberOfEvolutions  Number 
satPercentage  Number 
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myQuery  Query 
myQueryl  Query 
examDate  Date 
PropType  String 
endVar 

doDefault 

examDate.viewfPlease  enter  the  desired  start  date.") 
propType.viewC'Please  enter  the  desired  propulsion  type.") 
myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  1  %ofSatEvoI_1stSec  | 

I  _EG01  I  Check  >=75  | 

SHIP.DB  I  ShipName  |  ExamEndDate  |  PropType  | 

I  Check  _EG02,  _EG01  |  Check  >=~examDatel  Check  =~propType| 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG02  I  Check  =OPPE  | 


EndQuery 

myQueryl  =Query 

ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  1  Operati_Ship_ShipName_FK3  |  %ofSatEvol_1stSec  I 
|_EG01  I  Check  | 

SHIP.DB  I  ShipName  |  ExamEndDate  |  PropType  I 

I  Check  _EG02,  _EG01  |  Check  >=~examDatel  Check  =~propType| 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG02  I  Check  =OPPE  | 


EndQuery 

executeQBE(myQuery,  "Tas2Sec1  .db") 
executeQBE(myQuery1 ,  'TasISed  .db") 

tbl.attach("Tas2Sec1 ") 
tbi  1  .attachC'T  as1  Sec1 ") 

numberOfSats=tbl.cCountC'%ofSatEvol_1stSec") 
msgInfoC'Section  One", "The  total  number  of  sat  evolution  sets  are " 
+strVal(NumberOfSats)) 

T  otalNumberOfEvolutions=tbl  1  .cCount("%ofSatEvol_1  stSec") 
msgInfofSection  One", "The  total  number  of  evolution  sets  are " 
+strVal(totalNumberOfEvolutions)) 
SatPercentage=(numberOfSats/totalNumberOfEvolutions)*100 
msglnfofSection  One","The  sat  evolution  set  percentage  is  " 
+strVal(satPercentage)) 
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endmethod 


Object : 
MethodName : 
Source : 


Object : 
MethodName 
Source : 


#Page27 

setFocus 

method  setFocus(var  eventinfo  Event) 
var 

examMenu,  View,  Print,  ReportMenu  Menu 

PrintPop  PopUpMenu 

ViewPop  PopUpMenu 

ViewFlexPop  PopUpMenu 

PrintFlexPop  PopUpMenu 

examtype  PopupMenu 

endVar 

PrintPop.addTextfEvolutions  Section  1","",PrintFiex1) 
PrintPop.addTextC’Drilis  Section  1",‘"',PrintFiex4) 
PrintPop.addTextC'Evolutions  Section  2",”",PrintFiex2) 
PrintPop.addTextC'Drills  Section  2","",PrintFiex5) 
PrintPop.addTextf  Evolutions  Section  3",'’",PrintFlex3) 
PrintPop.addTextrDrills  Section  3”,"",PrintFlex6) 
PrintPop.addT  extC’&Graph") 

ViewPop.addTextfEvolutions  Section  1'',"",ViewFlex1) 
ViewPop.addTextCDrills  Section  1","",ViewFlex4) 
ViewPop.addTextfEvolutions  Section  2",'"',ViewFlex2) 
ViewPop.addTextf  Drills  Section  2","",ViewFlex5) 
ViewPop.addTextfEvolutions  Section  3”,”",ViewFlex3) 
ViewPop.addTextf  Drills  Section  3","",ViewFlex6) 

examMenu.addPopUpf&View",  ViewPop) 

examMenu.addPopUPf&Print",  PrintPop) 

examMenu.addTextf&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

endmethod 


#Page27.RESET_GRAPH_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tcTcursor 

endVar 

tc.openf  percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endmethod 
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Object : 
MethodName : 
Source : 


Object : 
MethodName : 
Source : 


Object : 
MethodName : 
Source : 


Object : 
MethodName ; 
Source ; 


#Page27.#Box46.DRILL_SEC3_LISTSHIP_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableView 
endVar 

ne\«View.open("drilsec3") 

endmethod 


#Page27.#Box46.DRILL_SEC2_LISTSHIP_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableView 
endVar 

newView.open("drilsec2") 

endmethod 


#Page27.#Box46.DRILL_SEC1_LISTSHIP_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableView 
endVar 

newView.openC'drilsecI ") 
endmethod 


#Page27.#Box46.DRILL_SET_PERCENT_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tbi  table 
tbl1  table 

numberOfSatsSed  Number 
totalNumberOfSatsSed  Number 
satPercentageSed  Number 
numberOfSatsSec2  Number 
totalNumberOfSatsSec2  Number 
satPercentageSec2  Number 
numberOfSatsSec3  Number 
totalNumberOfSatsSec3  Number 
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satPercentageSecS  Number 
myQueryl  Query 
myQuery2  Query 
myQueryS  Query 
myQuery4  Query 
myQueryS  Query 
myQueryS  Query 
examDatel  Date 
examDate2  Date 
PropType  String 
endVar 

doDefault 

examDatel  =dater01  /01  /OO") 
examDate2=dateri  2/31  /99") 
propType="GT" 

examDatel  .viewCEnter  the  start  date  (I.E.  01/01/95)") 
examDate2.viewf'Enter  the  stop  date  (I.E.  01/01 /95y') 
propType.viewC'Enter  the  prop  type  (GT/STM/DSL)") 
switch 

case  propType="GT": 
case  propType="STM": 
case  propType="DSL": 
case  propType="ALL": 
otherwise: 

msgStop("Problem",'The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 

if  propType="ALL"  then 
myQueryl  =Query 

ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |OperationlD_ExamEndDate  1  %ofSatDrilMstSec  | 
I  Check  _EG01  |Check  >=~examDate1 ,  <=~examDate2|  Check  >=50  | 

SHIP.DB  1  ShipName  jPropType  | 

1  _EG02,  _EG01  ICheck  | 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

1  _EG02  I  Check  =OPPE  OR  =REOPPE| 


EndQuery 

myQuery2=Query 

ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  1  Operati_Ship_Sh1pName_FK3  |OperationlD_ExamEndDate  |  %ofSatDrilMstSec  | 
1  Check  _EG01  [Check  >=~examDate1 ,  <=~examDate2|  Check  >0  1 

SHIP.DB  I  ShipName  [PropType  [ 

[_EG02,_EG01  [Check  [ 
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EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType 
1  _EG02  I  Check  =OPPE  OR  =REOPPE| 


EndQuery 

executeQBE(myQuery1 ,  "DrilSed  .db") 
executeQBE(myQuery2,  TasISed  .db") 

tbl.attachC’DrilSed ") 
tbl1  .attach("Tas1  Sed ") 

numberOfSatsSed  =tbl.cCount("%ofSatDrill_1  stSec") 
msgInfoC'Section  One", "The  total  number  of  sat  drill  sets  are " 

+strVal(NumberOfSateSed)) 

T  otalNumberOfSatsSed  =tbl  1  .cCount("%ofSatDrill_1  stSec") 
iftotalNumberOfSatsSed  <>  Othen 
msgInfoC'Section  One", "The  total  number  of  drill  sets  are " 

+strVal(totalNumberOfSateSec1)) 

SatPercentageSed =(numberOfSatsSec1/totalNumberOfSatsSec1  )*1 00 
msgInfoC'Section  One","The  sat  drill  set  percentage  is " 

+strVal  (satPercentageSed )) 

else 

msgStop("Problem","The  total  number  of  watch  sections  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

myQuery3=Query 
ANSWER:  ;PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |OperationlD_ExamEndDate  |  %ofSatDrill_2ndSec  | 
I  Check  _EG01  |Check  >=~examDate1 ,  <=~examDate2|  Check  >=50  | 

SHIP.DB  I  ShipName  IPropType  | 

1_EG02,_EG01  ICheckI 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG02  I  Check  =OPPE  OR  =REOPPEl 


EndQuery 

myQuery4=Query 

ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |OperationlD_ExamEndDate  |  %ofSatDrill_2ndSec  | 
I  Check  _EG01  |Check  >=~examDate1 ,  <=~examDate2|  Check  >0  | 

SHIP.DB  I  ShipName  IPropType  j 
|_EG02,_EG01  ICheckI 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2 1  ExamType  | 

I  _EG02  I  Check  =OPPE  OR  =REOPPE| 
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EndQuery 

executeQBE(myQuery3,  ''DiilSec2.db") 
executeQBE(myQuery4,  "TasISed  .db") 

tbl.attachC'DrilSec2") 
tbl1  .attachC'T  as1  Sec1 ") 

numberOfSatsSec2=tbl.cCountC’%ofSatDrill_2ndSec'') 
msglnfoC'Section  Two”, The  total  number  of  sat  drill  sets  are " 

+strVal(NumberOfSatsSec2)) 

TotalNumberOfSatsSec2=tbl1.cCount("%ofSatDrill_2ndSec") 
if  totalNumberOfSatsSec2  <>  0  then 
msglnfoC’Section  Two", "The  total  number  of  drill  sets  are " 

+strVal(totalNumberOfSatsSec2)) 

SatPercentageSec2=(numberOfSatsSec2/totalNumberOfSatsSec2)*100 
msglnfoC'Section  Two",”The  sat  drill  set  percentage  is " 

+strVal(satPercentageSec2)) 

else 

msgStopC'Problem","The  total  number  of  watch  sections  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

myQuery5=Query 
ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |OperationlD_ExamEndDate  |  %ofSatDrill_3rdSec  \ 
\  Check  _EG01  |Check  >=~examDate1 ,  <=~examDate2l  Check  >=50  | 

SHIP.DB  I  ShipName  jPropType  | 

I  _EG02,  _EG01  ICheck  I 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2 1  ExamType  | 

I  _EG02  I  Check  =OPPE  OR  =REOPPE| 


EndQuery 

myQuery6=Query 

ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  I  Operati_Ship_ShipName_FK3  |OperationlD_ExamEndDate  I  %ofSatDrill_3rdsec  | 
lCheck_EG01  |Check  >=~examDate1 ,  <=~examDate2|  Check  >0  I 

SHIP.DB  I  ShipName  |PropType  | 

|_EG02,_EG01  ICheck  I 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  [  ExamType  I 

I  _EG02  I  Check  =OPPE  OR  =REOPPEl 


EndQuery 

executeQBE(myQuery5,  "DrilSec3.db") 
executeQBE(myQuer^,  "TasISed  .db") 
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tbl.attach("DrilSec3") 
tbi  1  .attachC'T as1  Sec1 ") 

numberOfSateSec3=tbl.cCount("%ofSatDrill_3rdSec") 
msgInfoC'Section  Three", "The  total  number  of  sat  drill  sets  are " 

+strVal(NumberOfSatsSec3)) 

T  otalNumberOfSatsSec3=tbl1  .cCount("%ofSatDrill_3rdSec") 
if  totalNumberOfSatsSec3  <>  0  then 
msgInfoC'Section  Three", "The  total  number  of  drill  sets  are " 

+strVal(totalNumberOfSatsSec3)) 

SatPercentageSec3=(numberOfSatsSec3AotalNumberOfSatsSec3)*100 
msgInfoC'Section  Three","The  sat  drill  set  percentage  is " 

+strVal(satPercentageSec3)) 

else 

msgStop("Problem","The  total  number  of  watch  sections  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

else 

myQuery1=Query 
ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |OperationlD_ExamEndDate  I  %ofSatDrill_1stSec  | 
I  Check  _EG01  [Check  >=~examDate1 ,  <=~examDate2|  Check  >=50  | 

SHIP.DB  I  ShipName  IPropType  1 
I  _EG02,  _EG01  [Check  =~propType| 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG02  I  Check  =OPPE  OR  =REOPPEl 


EndQuery 

myQuery2=Query 

ANSWER:  :PRIV;ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |OperationlD_ExamEndDate  |  %ofSatDrilMstSec  [ 
I  Check  _EG01  [Check  >=~examDate1 ,  <=~examDate2[  Check  >0  | 

SHIP.DB  [  ShipName  [PropType  [ 

[  _EG02,  _EG01  [Check  =~propType[ 

EXAM.DB  [  ExamlD_Ship_ShipName_FK2  [  ExamType  [ 

[_EG02  [  Check  =OPPE  OR  =REOPPE[ 


EndQuery 

executeQBE(myQuery1 ,  "DrilSed  .db") 
executeQBE(myQuery2,  Test  Sect  .db") 

tbl.attach("DrilSec1 ") 
tbl1  .attachCTasI  Sec1 ") 
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numberOfSatsSed  =tbl.cCount("%ofSatDrilM  stSec") 
msgInfoC'Section  One", 'The  total  number  of  sat  drill  sets  are " 

+strVal(NumberOfSatsSec1 )) 

TotalNumberOfSatsSed  =tbl1  .cCountC'%ofSatDrill_1  stSec") 
iftotalNumberOfSatsSed  <>0then 
msgInfoC'Section  One", "The  total  number  of  drill  sets  are " 

+strVal(totalNumberOfSatsSed )) 

SatPercentageSed  =(numberOfSatsSed  /totalNumberOfSatsSed)*1 00 
msgInfoC'Section  One","The  sat  drill  set  percentage  is " 

+strVal(satPercentageSec1 )) 

else 

msgStop("Problem",'The  total  number  of  watch  sections  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

myQuery3=Query 
ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |OperationlD_ExamEndDate  |  %ofSatDrill_2ndSec  \ 
I  Check  _EG01  |Check  >=~examDate1 ,  <=~examDate2l  Check  >=50  I 

SHIP.DB  I  ShipName  |PropType  | 

I  _EG02,  _EG01  ICheck  =~propType| 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG02  1  Check  =OPPE  OR  =REOPPE| 


EndQuery 

myQuery4=Query 

ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |OperationlD_ExamEndDate  1  %ofSatDrill_2ndSec  i 
|Check_EG01  [Check  >=~examDate1 ,  <=~examDate2|  Check  >0  | 

SHIP.DB  I  ShipName  [PropType  | 

I  _EG02,  _EG01  [Check  =~propTypel 

EXAM.DB  [  ExamlD_Ship_ShipName_FK2  [  ExamType  | 

[  _EG02  I  Check  =OPPE  OR  =REOPPE| 


EndQuery 

executeQBE(myQuery3,  "DrilSec2.db") 
executeQBE(myQuery4,  "TasISed  .db") 

tbl.attachrDrilSec2") 
tbl1  .attachC'TasI  Sed ") 

numberOfSatsSec2=tbl.cCountC'%ofSatDrill_2ndSec") 
msgInfoC'Section  Two'',"The  total  number  of  sat  drill  sets  are " 
+strVal(NumberOfSatsSec2)) 

T  0talNumberOfSatsSec2=tbl1  .cCountC'%ofSatDrill_2ndSec") 
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if  totalNumberOfSatsSec2  <>  0  then  • 
msgInfoC'Section  Two", "The  total  number  of  drill  sets  are " 

+strVal(totalNumberOfSatsSec2)) 

SatPercentageSec2=(numberOfSatsSec2/totalNumber0^atsSec2)*100 
msgInfoC'Section  Two", 'The  sat  drill  set  percentage  is " 

+strVal(satPercentageSec2)) 

6lS6 

msgStop("Problem","The  total  number  of  watch  sections  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

myQuery5=Query 
ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |OperationlD_ExamEndDate  I  %ofSatDrill_3rdSec  | 
I  Check  _EG01  [Check  >=~examDate1 ,  <=~examDate2|  Check  >=50  | 

SHIP.DB  I  ShipName  [PropType  | 

I  _EG02,  _EG01  [Check  =~propType[ 

EXAM.DB  [  ExamlD_Ship_ShipName_FK2  [  ExamType  [ 

I  _EG02  [  Check  =OPPE  OR  =REOPPE[ 


EndQuery 

myQuery6=Query 

ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  [  Operati_Ship_ShipName_FK3  [OperationlD_ExamEndDate  [  %ofSatDrill_3rdsec  [ 
[  Check  _EG01  [Check  >=~examDate1 ,  <=~examDate2[  Check  >0  [ 

SHIP.DB  [  ShipName  [PropType  [ 

[  _EG02,  _EG01  [Check  =~propType[ 

EXAM.DB  [  ExamlD_Ship_ShipName_FK2  [  ExamType  [ 

[  _EG02  [  Check  =OPPE  OR  =REOPPE| 


EndQuery 

executeQBE(myQuery5,  "DrilSec3.db") 
executeQBE(myQuer^,  'Tas1  Sect  .db") 

tbl.attach("DrilSec3") 
tbl1  .attach("Tas1  Sect") 

numberOfSatsSec3=tbl.cCountC’%ofSatDiill_3rdSec") 
msgInfoC’Section  Three","The  total  number  of  sat  drill  sets  are  " 
+strVal(NumberOfSatsSec3)) 

TotalNumberOfSatsSec3=tbl1.cCount("%ofSatDrill_3rdSec") 
if  totalNumberOfSateSecS  <>  0  then 
msgInfoC'Section  Three", The  total  number  of  drill  sets  are " 
+sttVal(totalNumberOfSatsSec3)) 

SatPercentageSec3=(numberOfSatsSec3/totalNumberOfSatsSec3)*100 
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Object ; 
MethodName ; 
Source ; 


msglnfoC'Section  Three", "The  sat  drill  set  percentage  is " 

+strVal(satPercentageSec3)) 

6lS6 

msgStop("Problem","The  total  number  of  watch  sections  is  0,  you  cannot  divide  by  0!") 
return 
endlf 
endlf 

tc.openC'percent") 

TC.editO 

tcJnsertRecordO 

tc.CPercentage")=SatPercentageSec1 

tc.CPercentage1")=SatPercentageSec2 

tc.CPercentage2")=SatPercentageSec3 

tc.CPropType")=propType 

tc.("examDate1  ")=examDate1 

tc.C'examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page27.#Box28.EVOLUTION_PERCENT_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

to  tCursor 
tbi  table 
tbl1  table 

numberOfSatsSed  Number 

totalNumberOfEvolutionsSecI  Number 

satPercentageSed  Number 

numberOfSatsSec2  Number 

totalNumberOfEvolutionsSec2  Number 

satPercentageSec2  Number 

numberOfSatsSec3  Number 

totalNumberOfEvolutionsSec3  Number 

satPercentageSec3  Number 

myQueryl  Query 

myQuer^  Query 

myQuery3  Query 

myQuery4  Query 

myQueryS  Query 

myQuer^  Query 

examDatel  Date 

examDate2  Date 

PropType  String 

endVar 

doDefault 

examDatel  =date("01  /01/00") 
examDate2=datef  1 2/31  /99”) 
propType="GT" 

examDatel  .viewC'Enter  start  date  (I.E.  01/01/95)") 
examDate2.viewC'Enter  stop  date  (I.E.  01/01/95)") 
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propType.view("Enter  prop  type  (GT/STM/DSL)") 
switch 

case  propType="GT": 
case  propType="STM": 
case  propType="DSL": 
case  propType=''ALL": 
otherwise: 

msgStop("Problem",'The  choices  for  Propulsion  Type  are  GT,  STM,  DSL,  or  ALL  only!") 
return 
endSwitch 

if  propType="ALL"  then 
myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  I  Operati_Ship_ShipName_FK3  lOperationlD_ExamEndDate  |  %ofSatEvol_1stSec  | 
I  Check  _EG01  |Check  >=~examDate1 ,  <=~examDate2|  Check  >=65  | 

SHIP.DB  I  ShipName  |PropType  | 

|_EG02,_EG01  ICheckI 

EXAM.DB  i  ExamlD_Ship_ShipName_FK2  i  ExamType  I 

I  _EG02  I  Check  =OPPE  OR  =REOPPE| 


EndQuery 

myQuery2=Query 

ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |OperationID_ExamEndDate  |  %ofSatEvol_1stSec  | 
I  Check  _EG01  |Check  >=~examDate1 ,  <=~examDate2|  Check  >0  | 

SHIP.DB  I  ShipName  I  PropType  | 

|_EG02,_EG01  ICheckI 

EXAM.DB  i  ExamlD_Ship_ShipName_FK2  [  ExamType  | 

I  _EG02  I  Check  =OPPE  OR  REOPPE| 


EndQuery 

executeQBE(myQuery1 ,  'Tas2Sec1  .db") 
executeQBE(myQuer^,  "TasISed  .db") 

tbl.attach("Tas2Sec1 ") 
tbi  1  .attach  ("T  as1  Sed") 

numberOfSatsSec1=tbl.cCount("%ofSatEvol_1stSec") 
msgInfoC'Section  One","The  total  number  of  sat  evolution  sets  are " 
+strVai(NumberOfSatsSec1 )) 

TotalNumberOfEvolutionsSec1=tbl1.cCount("%ofSatEvol_1stSec") 
if  total NumberOfEvolutionsSed  <>  Othen 
msgInfoC'Section  One",'The  total  number  of  evolution  sets  are " 
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+strVal(totalNumberOfEvolutionsSec1)) 

SatPercentageSed =(numberOfSatsSec1  /totalNumberOfEvolutionsSed  )*1 00 
msgInfoC'Section  One", "The  sat  evolution  set  percentage  is " 

+str\/al(satPercentageSed )) 

6lS6 

msgStop("Problem”,"The  total  number  of  evolutions  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

myQuery3=Query 
ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |OperationlD_ExamEndDate  I  %ofSatEvol_2ndSec  | 
I  Check  _EG01  |Check  >=~examDate1 ,  <=~examDate2l  Check  >=65  | 

SHIP.DB  I  ShipName  |PropType  I 
1_EG02,_EG01  ICheckl 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  I  ExamType  I 

I  _EG02  I  Check  =OPPE  OR  =REOPPEl 


EndQuery 

myQuery4=Query 

ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |OperationlD_ExamEndDate  |  %ofSatEvoL2ndSec  | 
I  Check  _EG01  |Check  >=~examDate1 ,  <=~examDate2l  Check  >0  | 

SHIP.DB  I  ShipName  |PropType  | 

I  _EG02,  _EG01  jCheck  | 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG02  I  Check  =OPPE  OR  =REOPPE| 


EndQuery 

executeQBE(myQuery3,  "Tas2Sec2.db") 
executeQBE(myQuery4,  "TasISed  .db") 
tbi  .attach  ("Tas2Sec2") 
tbl1  .attachfTasI  Sed ") 

numberOfSatsSec2=tbl.cCountC%oKatEvol_2ndSec") 
msgInfoC'Section  Two", 'The  total  number  of  sat  evolution  sets  are " 
+strVal(NumberOfSatsSec2)) 

TotalNumberOfEvolutionsSec2=tbl1.cCountC’%ofSatEvol_2ndSec'') 
if  TotalNumberOfEvolutionsSec2  <>  0  then 
msgInfoC'Section  Two'',''The  total  number  of  evolution  sets  are  " 
+strVal(totalNumberOfEvolutionsSec2)) 
SatPercentageSec2=(numberOfSatsSec2ftotalNumberOfEvolutionsSec2)*100 
msgInfoC'Section  Two'',''The  sat  evolution  percentage  is  " 
+strVal(satPercentageSec2)) 

else 
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msgStop(”Problem",’The  total  number  of  evolutions  is  0,  you  cannot  divide  by  Oi") 
return 
endlf 

myQuery5=Query 
ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  10perationlD_ExamEndDate  |  %ofSatEvol_3rdSec  | 
I  Check  _EG01  JCheck  >=~examDate1 ,  <=~examDate2|  Check  >=65  | 

SHIP.DB  I  ShipName  [PropType  | 

1_EG02,_EG01  ICheckl 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2 1  ExamType  I 

I  _EG02  I  Check  =OPPE  OR  =REOPPE| 


EndQuery 

myQuery6=Query 

ANSWER:  :PRIV.ANSWER.DB 

OPERATIO.DB  j  Operati_Ship_ShipName_FK3  lOperationlD_ExamEndDate  |  %ofSatEvol_3rdSec  i 
I  Check  _EG01  |Check  >=~examDate1 ,  <=~examDate2|  Check  >0  | 

SHIP.DB  I  ShipName  |PropType  | 

1_EG02._EG01  ICheckl 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG02  I  Check  =OPPE  OR  =REOPPE| 


EndQuery 

executeQBE(myQuery5,  'T  as2Sec3.db") 
executeQBE(myQueri«,  "TasISed  .db") 

tbi  .attachC'T  as2Sec3") 
tbi  1  .attachC'T  as1  Sec1 ") 

numberOfSatsSec3=tbi.cCount("%ofSatEvol_3rdSec") 
msgInfoC'Section  Three", "The  total  number  of  sat  evolution  sete  are " 
+strVal(NumberOfSatsSec3)) 

TotalNumberOfEvolutionsSec3=tbl1.cCount("%ofSatEvol_3rdSec") 
if  TotalNumberOfEvolutionsSec3  <>  0  then 
msgInfoC'Section  Three", "The  total  number  of  evolution  sets  are " 
+strVal(totalNumberOfEvolutionsSec3)) 
SatPercentageSec3=(numberOfSatsSec3/totalNumberOfEvolutionsSec3)*100 
msgInfoC'Section  Three","The  sat  evolution  set  percentage  is " 
+stf\/al(satPercentageSec3)) 

olso 

msgStopC’Problem","The  total  number  of  evolutions  is  0,  you  cannot  divide  by  0!") 
return 
endlf 
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else 

myQuery1=Query 
ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |OperationlD_ExamEndDate  ]  %ofSatEvoMstSec  ] 
I  Check  _EG01  ICheck  >=~examDate1 ,  <=~examDate2|  Check  >=65  | 

SHIP.DB  I  ShipName  |PropType  | 

I  _EG02,  _EG01  [Check  =~propType| 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType  | 

I  _EG02  I  Check  =OPPE  OR  =REOPPE| 


EndQuery 

myQuery2=Query 

ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  I  Operati_Ship_ShipName_FK3  |OperationlD_ExamEndDate  |  %ofSatEvol_1stSec  | 
|Check_EG01  [Check  >=~examDate1 ,  <=~examDate2|  Check  >0  [ 

SHIP.DB  [  ShipName  [  PropType  [ 

[  _EG02,  _EG01  I  Check  =~propType[ 

EXAM.DB  [  ExamlD_Ship_ShipName_FK2  [  ExamType  [ 

[_EG02  [  Check  =OPPE[ 


EndQuery 

executeQBE(myQuery1 ,  "Tas2Sec1  .db") 
executeQBE(myQuery2,  "TasISed  .db") 

tbl.attachCTas2Sec1") 
tbi  1  .attachC'T  as1  Sec1 ") 

numberOfSatsSed  =tbl.cCountC'%ofSatEvoM  stSec") 
msgInfoC'Section  One", "The  total  number  of  sat  evolution  sets  are " 
+strVal(NumberOfSatsSec1 )) 

TotalNumberOfEvolutionsSed  =tbl1  .cCount("%ofSatEvol_1  stSec") 
iftotalNumberOfEvolutionsSecI  <>  Othen 
msginfof  Section  One", "The  total  number  of  evolution  sets  are  " 
+strVal(totalNumberOfEvolutionsSec1)) 

SatPercentageSed  =(numberOfSatsSec1  /totalNumberOfEvolutionsSed  )*1 00 
msgInfoC'Section  One", "The  sat  evolution  set  percentage  is " 
+strVal(satPercentageSec1 )) 

else 

msgStopC'Problem",'The  total  number  of  evolutions  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

myQuery3=Query 
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ANSWER:  :PRIV:ANSWER.DB 


OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |OperationlD_ExamEndDate  |  %ofSatEvol_2ndSec  | 
I  Check  _EG01  jCheck  >=~examDate1 ,  <=~examDate2l  Check  >=65  [ 

SHIP.DB  I  ShipName  |PropType  | 

I  _EG02,  _EG01  [Check  =~propType| 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2 1  ExamType  | 

I  _EG02  I  Check  =OPPE  OR  =REOPPEl 


EndQuery 

myQuery4=Query 

ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  |  Operati_Ship_ShipName_FK3  |OperationlD_ExamEndDate  I  %ofSatEvol_2ndSec  | 
|Check_EG01  [Check  >=~examDate1 ,  <=~examDate2|  Check  >0  [ 

SHIP.DB  [  ShipName  [PropType  [ 

I  _EG02,  _EG01  [Check  =~propType[ 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  [  ExamType  [ 

[  _EG02  [  Check  =OPPE  OR  =REOPPE[ 


EndQuery 

executeQBE(myQuery3,  'Tas2Sec2.db") 
executeQBE(myQuery4,  'TasISed  .db") 
tbl.attachC'T  as2Sec2") 
tbl1  .attachC'T  as1  Sec1 ") 

numberOfSatsSec2=tbi.cCountC'%ofSatEvol_2ndSec") 
msglnfo(”Section  Two", "The  total  number  of  sat  evolution  sets  are " 

+strVal(NumberOfSateSec2)) 

TotalNumberOfEvolutonsSec2=tbl1.cCount("%o^atEvol_2ndSec") 
if  TotalNumberOfEvolutionsSec2  <>  0  then 
msglnfo("Section  Two", "The  total  number  of  evolution  sets  are " 

+stiVal(totalNumberOfEvolutionsSec2)) 
SatPercentageSec2=(numberOfSatsSec2/totalNumberOfEvoiutionsSec2)*100 
msglnfoCSecdon  Two",’The  sat  evolution  percentage  is " 

+strVal(satPercentageSec2)) 

g1S6 

msgStopC'Problem'',"The  total  number  of  evolutions  is  0,  you  cannot  divide  by  Ol") 
return 
endlf 

myQuery5=Query 
ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  [  Operati_Ship_ShipName_FK3  [OperationlD_ExamEndDate  [  %ofSatEvoL3rdSec  [ 
[  Check  _EG01  [Check  >=~examDate1 ,  <=~examDate2[  Check  >=65  | 
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SHIP.DB  1  ShipName  |PropType  | 

1  _EG02,  _EG01  ICheck  =~propTypel 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamType 
I  _EG02  I  Check  =OPPE  OR  =REOPPEl 


EndQuery 

myQuery6=Query 

ANSWER:  :PRIV:ANSWER.DB 

OPERATIO.DB  I  Operati_Ship_ShipName_FK3  lOperationlD_ExamEndDate  |  %ofSatEvol_3rdSec 
I  Check_EG01  [Check  >=~examDate1,  <=~examDate2|  Check  >0  j 

SHIP.DB  I  ShipName  jPropType  j 
I  _EG02,  _EG01  [Check  =~propType[ 

EXAM.DB  [  ExamlD_Ship_ShipName_FK2  [  ExamType  [ 

[  _EG02  [  Check  =OPPE  OR  =REOPPE[ 


EndQuery 

executeQBE(myQuery5,  'Tas2Sec3.db") 
executeQBE(myQuer^,  "Tas1  Sec1  .db") 

tbl.attachrTas2Sec3") 
tbl1  .attachC'T  as1  Sec1 ") 

numberOfSatsSec3=tbl.cCount("%ofSatEvol_3rdSec") 
msgInfoC'Section  Three", "The  total  number  of  sat  evolution  sets  are " 
+strVal(NumberOfSatsSec3)) 

T  otalNumberOfEvolutionsSec3=tbl1  .cCount("%ofSatEvol_3rdSec") 
if  TotalNumberOfEvolutionsSec3  <>  0  then 
msgInfoC'Section  Three" .The  total  number  of  evolution  sets  are " 
+strVal(totalNumberOfEvolutionsSec3)) 
SatPercentageSec3=(numberO^atsSec3AotaiNumberOfEvolutionsSec3)*100 
msgInfoC'Section  Three", 'The  sat  evolution  set  percentage  is " 
+strVal(satPercentageSec3)) 

else 

msgStopC'Problem",'The  total  number  of  evolutions  is  0,  you  cannot  divide  by  0!") 
return 
endlf 

endif 

tc.openC'percenf) 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageSec1 

tc.rPercentage1")=SatPercentageSec2 

tc.CPercentage2")=SatPercentageSec3 

tc.("PropType")=propType 

tc.C'examDatel  '')=examDate1 

tc.CexamDate2")=examDate2 

tc.endEditO 
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endmethod 


Object : 
MethodName : 
Source : 


Object ; 
MethodName : 
Source : 


Object : 
MethodName : 
Source : 


#Page27.#Box28.EVOL_SEC3_LISTSHIP_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

new/View  tableVievir 
endVar 

new\/iew.open(''tas2sec3") 

endmethod 

#Page27.#Box28.EVOL_SEC1_LISTSHIP_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableView 
endVar 

newView.open(‘T  as2sec1  ”) 
endmethod 


#Page27.#Box28.EVOL_SEC2_LISTSHIP_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

newView  tableView 
endVar 

newView.open(''tas2sec2") 

endmethod 
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Object : 
MethodName : 
Source : 


Object : 
MethodName : 
Source : 


SPECIAL_SITUATIONS_QUERY 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
var 

examMenu  Menu 
ReportPop  PopUpMenu 
AddPoP  PopUpMenu 
endVar 

if  eventlnfo-isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 


else 

;  This  code  executes  only  for  the  form. 

examMenu.addTextC’&Quit") 

examMenu.showQ 

maximizeO 

hideSpeedBarO 

editO 

endif 

endmethod 


SPECIAL_SITUATIONS_QUERY 

menuAction 

method  menuAction(var  eventinfo  MenuEvent) 
var 

myRep  Report 
reply  String 
endVar 

if  eventlnfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 


Switch 


else 

;  This  code  executes  only  for  the  form, 
case  eventInfo.menuChoiceO  ="&Help": 


case  eventInfo.menuChoiceO  ="&Quit": 
reply=msgQuestion("Quit",''Are  you  sure  you  want  to  leave  this  form?") 
If  reply  =  "Yes"  then 
closeQ 
else 
return 
endif 
endSwitch 
endif 

endmethod 
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Object : 
MethodName : 
Source ; 


Object : 
MethodName : 
Source : 


Object : 
MethodName : 
Source : 


#Page2 

setFocus 

method  setFocus(var  eventinfo  Event) 
var 

examMenu  Menu 
ReportPop  PopUpMenu 
AddPoP  PopUpMenu 
endVar 

examMenu.addT  ext("&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

editO 

endmethod 


#Page2.#Box3.PRINT_REPORT_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

myRep  Report 
reply  String 
endVar 

reply=msgQuestionC'Printthe  repoif  ."Have  you  updated  the  report  with  the  queries?") 

if  reply="Yes"  then 

myRep.piintfSpecial") 

else 

return 

endlf 

endmethod 


#Page2.#Box3.VIEW_REPORT_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

myRep  Report 
reply  String 
m  menu 
endVar 

reply=msgQuestion("View  report", "Have  you  updated  the  report  with  the  queries?") 
if  reply="Yes"  then 

myRep.openfSpecial",  WinStyleMaximize) 

hideSpeedBarO 

m.addText("") 

m.showO 

message("Shift-F4  for  next  page,  Shift-F3  for  previous  page,  Ctrl-F4  to  close  report") 
else 
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return 

endlf 

endmethod 


Object : 
MethodName : 
Source : 


Object : 
MethodName : 
Source ; 


#Page2.#Box3.0VERDUE_BUTTON 

pushButton 

method  pushButton (var  eventinfo  Event) 
var 

tbi  tableView 
myQuery  Query 
examDatel  Date 
endVar 
doDefault 

examDatel  =todayO 
myQuery=Query 

ANSWER:  :PRIV;ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  \  NextExamDate 

1  Check  _EG01  |  Check  <=~examDate1  ,NOT  BLANKj 

EndQuery 

emptyfLateExam") 

if  executeQBE(myQuery,  "LateExam.db")  then 
msgInfoC'Overdue  Query", "The  Overdue  Query  was  successful!") 
else 

msgStopC'Problem", "Sorry,  could  not  open  LateExam  database.") 
endlf 

endmethod 


#Page2.#Box3.INCOMPLETE_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tbI  tableView 
myQuery  Query 
examDatel  Date 
examDate2  Date 
endVar 

doDefault 

examDatel  =date("01  /01  /OO") 
examDate2=date("1 2/31  /99") 
examDatel  .viewfEnter  start  date  (I.E.  01/01/95)") 
examDate2.viewC'Enter  stop  date  (I.E.  01/01/95)") 

myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 
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Object : 
MethodName : 
Source : 


EXAM.DB  1  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  1  ExarnTypej 

I  Check  1  Check  >=~examDate1 ,  <=~examDate2|  Check  | 

EXAM.DB  I  OverallFindingl  Comments  |  NextExamDate  |  Cleared  | 

I  Check  =INC  |  Check  |  Check  \  Check  =N| 


EndQuery 

emptyC'INC") 

if  executeQBE{myQuery,  "INC.db")  then 
msglnfoC'lncomplete  Query", 'The  Incomplete  Query  was  successful!") 

6lS6 

msgStopC'Problem", "Sorry,  could  not  open  INCOMPLETE  database.") 
endlf 

endmethod 


#Page2.#Box3.UNSAT_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tbi  tableView 
myQuery  Query 
examDatel  Date 
examDate2  Date 
endVar 

doDefault 

examDatel  =date("01/01/00") 
examDate2=date("12/31/99") 
examDatel  .view("Enter  start  date  (I.E.  01/01/95)") 
examDate2.view("Enter  stop  date  (I.E.  01/01/95)") 

myQuery=Query 

ANSWER;  ;PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  |  ExamTypel 

I  Check  1  Check  >=~examDate1 ,  <=~examDate2|  Check  1 

EX/\M.DB  I  OverallFindingl  Comments  |  NextExamDate  |  Cleared  | 

I  Check  =UNS  1  Check  |  Check  |  Check  =N| 


EndQuery 
empty  ("Unsat") 

if  executeQBE(myQuery,  "UnsaLdb")  then 
msglnfoC'Unsatisfactory  query","The  Unsatisfactory  Query  was  successful!") 
else 

msgStop("Problem","Sorry,  could  not  open  the  unsat  database.") 
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endlf 

endmethod 


Object : 
MethodName : 
Source : 


Object : 
MethodName : 
Source : 


CUMULATIVE_TREND_QUERY 

arrive 

method  arrive(var  eventinfo  MoveEvent) 
var 

tc  Tcursor 

examMenu,  View,  Print,  ReporlMenu  Menu 

PrintPop  PopUpMenu 

ViewPop  PopUpMenu 

ViewFlexPop  PopUpMenu 

PrintFlexPop  PopUpMenu 

examtype  PopupMenu 

endVar 

if  eventInfo.isPreFilterO 
then 

:  This  code  executes  for  each  object  on  the  form. 


else 

;  This  code  executes  only  for  the  form. 

examMenu  .addT  ext("&Print") 

examMenu  .addT  extf&Quif) 

examMenu.showQ 

maximizeO 

hideSpeedBarO 

tc.openC'percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endif 

endmethod 


CUMULATIVE_TREND_QUERY 

menuAction 

method  menuAction(var  eventinfo  MenuEvent) 
var 

myRep  Report 
reply  String 
choiceld  Smallint 
endVar 

choiceld=eventlnfo.idO 

if  eventInfo.isPreFilterO 
then 

;  This  code  executes  for  each  object  on  the  form. 


else 

;  This  code  executes  only  for  the  form. 


Switch 
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Object : 
MethodName : 
Source : 


Object : 
MethodName : 
Source : 


case  eventInfo.menuChoiceO  ="&Help": 
case  eventInfo.menuChoiceO  =”&Quit'’: 
reply=msgQuestion("Quit","Are  you  sure  you  want  to  leave  this  form?") 
If  reply  =  "Yes"  then 
closeO 
else 
return 
endlf 

case  eventInfo.menuChoiceO  ="&Print": 
myRep.printfCumT  rend") 
endSwitch 
endif 

endmethod 


#Page2 

setFocus 

method  setFocus(var  eventinfo  Event) 
var 

tc  Tcursor 

examMenu,  View,  Print,  ReportMenu  Menu 

PrintPop  PopUpMenu 

ViewPop  PopUpMenu 

ViewFlexPop  PopUpMenu 

PrintFlexPop  PopUpMenu 

examtype  PopupMenu 

endVar 

examMenu.addT  extC'&Print") 

examMenu.addT  extf '&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

tc.open("percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endmethod 


#Page2.0PPE_PERCENT_BUTTON 

pushButton 

method  pushButton(var  eventinfo  Event) 
var 

tc  tCursor 
tb!  table 
tbl1  table 

numberOKatsOppe  Number 
totalNumberOfOppe  Number 
satPercentageOppe  Number 
myQuery  Query 
myQueryt  Query 
myQuer^  Query 
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examDatel  Date 
examDate2  Date 
propType  String 
examType  String 
endVar 
doDefault 

examDatel  =date(''01/01/00") 
examDate2=date("12/31/99") 
examDatel  .view("Enter  start  date  (I.E.  01/01/95)") 
examDate2.view("Enter  stop  date  (I.E.  01/01/95y') 

myQuery=Query 

ANSWER:  :PRIV:ANSWER.DB 

EX/\M.DB  I  ExamlD_Ship_ShipName_FK2  |  ExamlD_ExamEndDate  lExamType  | 

OverallFinding  | 

1  Check  _EG01  I  Check  >=~examDate1 ,  <=~examDate2|Check  =OPPE  |  Check  =SAT  OR 

=EXC  OR  =GOODl 

SHIP.DB  I  ShipName  |  PropType  | 

1  _EG01  I  Check  | 


EndQuery 

myQuery1=Query 

ANSWER:  :PRIV:ANSWER.DB 

EXAM.DB  I  ExamlD_Ship_ShipName_FK2 1  ExamlD_ExamEndDate  lExamType  | 

OverallFinding  I 

I  Check  _EG01  1  Check  >=~examDate1 ,  <=~examDate2|Check  =OPPE  1  Check  =SAT  OR 

=UNS  OR  =GOOD  OR  =EXCi 

SHIP.DB  I  ShipName  |  PropType  | 

I  _EG01  I  Check  | 

EndQuery 

empty  ("OppeSum") 
emptyC'OppeSumI ") 
executeQBE(myQuery,  "OppeSum.db") 
executeQBE(myQuery,  "OppeSumI  .db") 
tbI.attachC'OppeSum") 
tbil  .attachC'OppeSumI ") 

numberOfSatsOppe=tbl.cCount("OverallFinding") 
msglnfoC’OPPE","The  total  number  of  sats  are " 

+str\/al(NumberOfSatsOppe)) 

TotalNumberOfOppe=tbl1.cCount("OverallFinding") 
if  TotalNumberOfOppe  <>  0  then 
msglnfoC'OPPE",'The  total  number  is " 

+str\/al(totalNumberOfOppe)) 

SatPercentageOppe=(numberOfSatsOppe/totalNumberOfOppe)*100 
msglnfo("OPPE","The  sat  percentage  is " 
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+str\/al(satPercentageOppe)) 

else 

msgStop("Problem'',"The  total  number  of  OPPE's  is  0,  you  cannot  divide  by  01") 
return 
endlf 

tc.openfpercent") 

TC.editO 

tcJnsertRecordO 

tc.C’Percentage")=SatPercentageOppe 

tc.C'PropType")="OPPE" 

tc.C'examDatel  ")=examDate1 

tc.C'examDate2")=examDate2 

tc.endEditO 

endmethod 
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APPENDIX  H.  USER’S  MANUAL 


A.  INTRODUCTION 

The  purpose  of  this  manual  is  to  familiarize  the  user  with  the  Propulsion  Examining  Board’s 
Database  System  (PEBDS).  The  system  uses  a  series  of  windows  and  pull  down  menus.  The  system 
is  designed  to  be  very  easy  to  use  but  does  require  familiarity  with  Microsoft  Windows  and  the  use 
of  a  mouse. 

B.  GETTING  STARTED 

Before  installing  the  PEBDS,  the  Paradox  for  Windows  version  4.5  or  5.0  database 
management  software  and  Microsoft  Windows  3 . 1  or  Windows  95  must  be  installed  as  specified  in 
their  respective  user’s  manuals.  The  application  files  in  the  provided  3.5  inch  floppy  disks  must  be 
copied  to  the  hard  disk  into  a  directory  labeled  PEBDS.  If  the  PEBDS  directory  does  not  exist,  you 
must  create  the  directory  either  through  DOS  or  the  Windows  Program  Manager.  Once  the  files  are 
copied  into  PEBDS  directory,  there  are  two  ways  to  initialize  the  PEBDS. 

The  first  way  to  load  the  P^DS  is  to  initialize  Paradox  for  Windows  by  double  clicking  on 
the  Paradox  for  Windows  icon.  Once  Paradox  for  Wmdows  is  loaded,  you  must  change  the  working 
directory  of  the  database  management  software  to  C:\PEBDS  by  selecting  FILE  fi’om  the  main  menu 
and  then  selecting  WORKING  DIRECTORY .  Type  in  C:\PEBDS  and  select  save,  this  will  change 
the  working  directory  of  Paradox  for  Windows.  If  you  are  having  difficulty  changing  the  working 
directory,  consult  the  user’s  manual  for  Paradox  for  Windows  for  further  guidance.  Once  the 
Paradox  for  Windows  desktop  is  visible  on  the  screen,  initialize  the  startup  script  (Startup. ssl)  by 
selecting  Script  fi'om  the  Open  drop  down  menu.  The  PEBDS  will  be  loaded  with  the  main  menu  as 
the  first  screen. 

The  second  way  to  load  the  PEBDS,  which  is  more  robust,  is  to  load  the  PEBDS  directly 
from  the  Windows  Program  Manager.  You  do  this  by  providing  an  icon  that  both  loads  Paradox  for 
Windows  and  the  startup  script.  You  first  must  make  the  PEB  Database  program  group  by  selecting 
New  from  the  File  drop  down  menu.  Select  the  Program  Group  radio  button,  type  in  PEB  Database 
in  the  description  box  and  hit  Enter.  Next  select  the  Paradox  for  Wmdows  icon  and  then  select  Copy 
from  the  File  drop  down  menu.  The  Copy  Program  Item  dialog  box  will  give  you  a  drop  down  list 
to  select  where  you  want  to  copy  the  icon  to.  Select  the  PEB  Database  program  group  and  hit  Enter. 
Next  highlight  the  Paradox  for  Windows  icon  and  choose  Properties  from  the  File  drop  down  menu. 
Here  you  will  change  the  name  of  the  icon  to  PEBDS  by  typing  PEBDS  in  the  Description  box.  You 
can  now  change  the  look  of  the  icon  if  you  desire  by  selecting  the  Change  Icon  pushbutton.  Next  you 
must  change  the  Command  Line  to  load  the  startup  script  to  look  like; 

C. \OFFICE\PDOXWIN\PDOXWIN.EXE  STARTUP.SSL  -c  -q  -w  C;\PEBDS 

Next  select  the  OK  pushbutton  and  you  will  now  have  a  separate  program  group  and  icon  to  load  the 
PEBDS.  From  the  program  manager  select  the  PEBDS  icon  and  initialize  the  application  (see  figure 
2).  Once  the  application  is  loaded,  the  next  screen  to  appear  is  the  main  menu  for  the  PEBDS.  The 
main  menu,  (see  figure  2),  allows  the  user  to  input  data,  process  queries,  backup  data  and  quit  to  the 
to  the  Program  Manager  through  ADD,  INQUIRY,  BACKUP  and  QUIT  respectively. 
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Figure  2.  Main  menu  screen 


C.  MAIN  MENU 
1.  ADD 

The  ADD  menu  selection  will  give  the  user  the  option  to  add  the  following;  Ship,  Exam,  Fire 
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Fighting,  Level  of  Knowledge,  Material,  Operations,  Program  Management,  and  Training.  When  an 
option  is  selected,  the  respective  data  entry  screen  will  appear  and  data  entry  can  begin  immediately 
(see  figure  3).  When  the  last  field  of  data  is  entered,  the  cursor  will  automatically  scroll  to  the  first 
field.  In  addition,  there  are  several  default  values  in  selected  fields.  They  have  been  added  to 
decrease  data  entry.  These  default  values  however,  can  be  changed  if  required.  If  the  user  requires 
to  enter  another  record,  the  user  will  press  the  push  button.  When  the  push  button  is  pressed,  the 
process  can  now  be  repeated.  If  a  correction  is  needed  to  the  current  record,  the  user  may  choose 
to  do  either  of  the  following:  one  press  TAB  or  SHIFT-TAB  key(s)  to  move  forward  or  backward 


Database  Management  System  -  [Exam  input  Form] 


Figure  3.  Exam  input  screen, 

respectively  or  two,  position  and  click  the  mouse  on  the  field  to  change. 

All  input  screens  have  identical  main  menus.  The  choices  on  the  main  menu  are  RECORD 
and  QUIT  (see  figure  3).  The  RECORD  option  produces  a  drop  down  menu  with  the  choice  to 
LOCATE  or  DELETE.  When  the  LOCATE  option  is  used,  a  locating  dialog  box  appears  and  the 
user  may  locate  any  record  by  any  field.  The  default  field  is  the  ship  name  on  all  input  screens. 
However,  this  default  value  may  be  changed  by  scrolling  though  the  available  fields  for  that  screen. 
The  DELETE  option  will  delete  the  current  record.  A  safeguard  has  been  added  by  providing  a 
question  dialog  box  asking  the  user  to  verify  that  he  or  she  wants  to  delete  the  current  record.  Once 
a  record  is  deleted,  it  cannot  be  restored  unless  it  is  reentered.  The  QUIT  option  closes  the  input 
screen  and  returns  you  to  the  main  menu. 

The  PEBDS  has  been  designed  to  provide  a  robust  and  user  firiendly  environment.  However, 
if  the  user  tries  to  enter  a  record  that  has  been  previously  entered,  a  Key  Violation  error  will  result. 
If  this  occurs,  delete  the  current  record  or  change  the  information  that  is  in  error  (this  will  most  likely 
be  the  exam  end  date  and  ship  name  combination).  This  error  results  fi’om  a  ship  having  two  exams 
ending  on  the  same  date.  All  other  errors  are  covered  by  the  systems  internal  error  checking 
mechanism. 
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NOTE:  You  must  ADD  the  ship  before  any  other  data  entry  is 
conducted.  The  PEBDS  is  dependent  on  the  ship  and  data 
pertaining  to  the  ship  in  each  input  screen  will  not  be  allowed 
unless  the  ship  is  in  the  database  first. 

2.  INQUIRY 

The  Inquiry  selection  will  give  the  user  the  option  to  manipulate  the  following  queries:  Boiler 
Flexes,  ECCTT,  Fire  Drills,  High  Power  Demo,  OPPE/LOE  Area  Summary,  Program  Statistics, 
Monthly  OPPE/LOE  Summary,  and  Evolutions  and  Drills.  When  an  option  is  selected,  the  respective 
query  screen  will  appear  and  manipulation  of  the  query  can  begin  immediately.  Since  the  operation 
of  the  query  screens  vary,  each  of  the  query  screens  will  be  illustrated.  However  there  are  several 
features  that  are  common  to  all  query  screens  and  they  will  be  discussed  first. 

The  similar  features  common  to  all  query  screens  are  the  start  date,  stop  date,  propulsion  type, 
and  exam  type  input  windows  (See  figures  4,  5,  6  and  7).  Other  features  are  the  LIST  SHIPS  and 
RESET  GRAPH  push  buttons.  The  start  date  and  stop  date  inputs  define  the  period  you  want  to 
search.  The  format  for  the  input  is  01/01/95, 01-01-95,  or  01.01.95.  If  another  format  is  chosen,  the 
installed  error  checking  mechanism  will  signal  the  user  that  the  choice  was  invalid.  The  exam  type 
input  defines  which  type  of  exam  you  want  to  search.  The  choices  for  are  OPPE,  REOPPE,  LOE, 
or  RELOE.  The  choices  must  be  spelled  exactly  and  must  up  in  uppercase  for  the  input  to  be  valid. 
The  propulsion  type  input  defines  which  ship  type  you  want  to  search.  The  choices  are  GT  (Gas 
Turbine),  STM  (Steam),  DSL  (Diesel)  or  ALL  (all  ship  t5qjes).  Again  the  choices  must  be  spelled 
exactly  and  must  be  in  uppercase  for  the  input  to  be  valid.  The  exam  type  and  propulsion  type  inputs 
are  common  on  all  but  a  few  of  the  query  screens.  The  LIST  SHIPS  push  button  displays  the  ships 
in  a  table  format.  The  RESET  GRAPH  push  button  clears  the  graph  for  the  user  to  begin 
another  query.  Caution  should  be  exercised  when  pressing  this  push  button  to  prevent  firom 
inadvertently  clearing  the  graphical  display. 

A.  Boiler  Flexes  Query 

The  Boiler  Flexes  query  (see  figure  8)  enables  the  user  to  graphically  display  the  percentage  of  boiler 
flex  levels.  To  start  the  query,  the  user  simply  presses  which  level  he  or  she  wants  to  display,  for 
example  LEVEL  1.  The  start  date  and  stop  date  input  dialog  boxes  appear,  the  desired  period  is  then 
entered  and  the  query  conducts  the  search.  The  next  dialog  boxes  are  informative  in  nature  and  the 
result  is  graphically  displayed.  To  compare  the  different  levels  against  each  other,  the  user  must  be 
sure  that  he  or  she  is  consistent  with  the  start  and  stop  dates  when  the  other  level  push  buttons  are 
pressed.  The  LIST  SHIPS  and  RESET  GRAPH  push  buttons  were  discussed  earlier.  The  Boiler 


Figure  4. 


Figure  5. 
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Figure  6. 


Figure  7. 


View  Print  Quit 


Figure  8.  Boiler  Flex  query. 


Flexes  main  menu  has  three  options.  The  options  are  View,  Print,  and  Quit.  The  View  option 
displays  a  report  that  the  user  can  use  for  information  purposes.  The  Print  option  displays  two 
choices.  The  choices  are  Report  and  Graph.  The  Report  choice  prints  the  report  that  was  previously 
viewed  and  the  Graph  choice  prints  the  graph  that  is  ^splayed  on  the  screen.  The  Quit  option  returns 
the  user  to  the  main  menu. 


B.  ECCTT  query 

The  ECCTT  query  (see  figure  9)  enables  the  user  to  graphically  display  the  ECCTT 
satisfactory  percentage.  To  start  the  query,  the  user  simply  presses  the  ECCTT  push  button.  The 
start  date,  stop  date,  and  propulsion  type  input  dialog  boxes  appear.  The  desired  period  and 
propulsion  type  are  entered  and  the  query  conducts  the  search.  The  next  dialog  boxes  are  informative 
in  nature  and  the  result  is  graphically  displayed.  To  compare  the  ECCTTs  of  different  propulsion 
types,  the  user  must  be  sure  that  he  or  she  is  consistent  with  the  start  and  stop  dates.  The  LIST 
SHIPS  and  RESET  GRAPH  push  buttons  have  been  discussed  earlier.  The  ECCTT  query  main 
menu  has  two  options.  The  options  are  Report  and  Quit.  The  Report  option  displays  two  choices. 
The  choices  are  View  and  Print.  The  View  choice  has  two  sub-choices.  The  sub-choices  are  Unsat 
ECCTT  Report  and  Sat  ECCTT  Report.  The  user  can  view  these  reports  for  information  purposes. 
The  Print  choice  has  two  sub-choices.  The  sub-choices  are  Unsat  ECCTT  Report,  Sat  ECCTT 
Report,  and  Graph.  The  Print  choice  prints  the  reports  that  were  previously  reviewed  and  the  graph 
that  is  displayed.  The  Quit  option  returns  the  user  to  the  main  menu. 


C.  Fire  Drills  query 

The  Fire  Drills  query  (see  figure  10)  enables  the  user  to  graphically  display  the  Fire 
Drills  percentage.  To  start  the  query,  the  user  simply  presses  one  of  three  Fire  Drill  push  buttons. 
The  start  date,  stop  date,  propulsion  type,  and  exam  type  input  dialog  boxes  appear.  The  desired 
inputs  are  entered  and  the  query  conducts  the  search.  The  next  dialog  boxes  are  informative  in  nature 
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Figure  9.  ECCTT  query. 


and  the  result  is  graphically  displayed.  To  compare  the  Fire  Drills  of  different  propulsion  types,  the 
user  must  be  sure  that  he  or  she  is  consistent  with  the  start  and  stop  dates.  The  LIST  SHIPS  and 
RESET  GRAPH  push  buttons  have  been  discussed  eariier.  The  Fire  Drills  query  main  menu  has  three 
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Figure  10.  Fire  Drills  query. 
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options.  The  options  are  View,  Print  and  Quit.  The  View  option  displays  three  choices.  The  choices 
are  Fire  Drill  1,  FireDrill  2,  and  Fire  Drill  3.  The  user  can  view  these  reports  for  information 
purposes.  The  P^t  option  displays  four  choices.  The  choices  are  Fire  Drill  1,  Fire  Drill  2,  Fire  Drill 
3,  and  Graph.  The  Print  option  prints  the  reports  that  were  previously  reviewed  and  the  graph  that 
is  displayed.  The  Quit  option  returns  the  user  to  the  main  menu. 

D.  High  Power  Demo  query 

The  High  Power  Demo  query  (see  figure  11)  enables  the  user  to  graphically  display 
the  High  Power  Demo  satisfectory  percentage.  To  start  the  query,  the  user  simply  presses  the  High 
Power  Demo  push  button.  The  start  date,  stop  date,  and  propulsion  type  input  dialog  boxes  appear. 
The  desired  period  and  propulsion  types  are  entered  and  the  query  conducts  the  search.  The  next 
dialog  boxes  are  informative  in  nature  and  the  result  is  graphically  displayed.  To  compare  the  High 
Power  Demos  of  different  propulsion  types,  the  user  must  be  sure  that  he  or  she  is  consistent  with 
the  start  and  stop  dates.  The  LIST  SHIPS  and  RESET  GRAPH  push  buttons  have  been  discussed 
earlier.  The  Hgh  Power  Demo  query  main  menu  has  two  options.  The  two  options  are  Report  and 
Quit.  The  Report  option  displays  two  choices.  The  choices  are  View  and  Print.  The  View  choice 
enables  the  user  to  view  the  high  power  demo  report.  The  Print  choice  has  two  sub-choices.  The 
sub-choices  are  High  Power  report  and  Graph.  The  Print  choice  prints  the  High  Power  report 
previously  viewed  and  the  Graph  that  is  displayed.  The  Quit  option  returns  the  user  to  the  main 
menu. 

E.  OPPE/LOE  Area  Summary  query 

The  OPPE/LOE  Area  Summary  query  (see  figure  12)  enables  the  user  to  graphically 
display  the  OPPE/LOE  area  satisfactory  percentage.  To  start  the  query,  the  user  simply  presses  the 
desired  OPPE/LOE  area  push  button.  The  start  date,  stop  date,  propulsion  type,  and  exam  type  input 
dialog  boxes  appear.  The  desired  inputs  are  entered  and  the  query  conducts  the  search.  The  next 
dialog  boxes  are  informative  in  nature  and  the  result  is  graphically  displayed. 


Figure  11.  High  Power  Percentage  query. 
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HP:  It  is  a  good  idea  to  press  the  OPPE  or  LOE  percentage  push 
button  first,  then  the  area  push  buttons  to  keep  the  graph 
consistent.  Also,  you  should  keep  the  propulsion  type  constant. 

To  compare  the  OPPE/LOE  Areas,  the  user  must  be  sure  that  he  or  she  is  consistent  with  the  start 
and  stop  dates.  The  LIST  SHIPS  and  RESET  GRAPH  push  buttons  have  been  discussed  earlier. 
The  OPPE/LOE  Area  Summary  query  main  menu  has  three  options.  The  three  options  are  View, 
Print  and  Quit.  The  View  choice  has  two  sub-choices.  The  sub-choices  are  Sat  and  Unsat.  These 
sub-choices  enable  the  user  to  view  the  following  reports:  OPPE  Percentage,  Operations  Percentage, 
Fire  Fighting  Percentage,  Material  Percentage,  Training  Percentage,  Program  Management 


Figure  12.  OPPE/LOE  Area  Summary  query. 


Percentage,  and  LOE  percentage.  The  Print  choice  has  three  sub-choices.  The  sub-choices  are  Sat, 
Unsat,  and  Graph.  These  sub-choices  enable  the  user  to  print  the  previously  viewed  report  plus  the 
displayed  graph.  The  Quit  option  returns  the  user  to  the  main  menu. 

F.  Program  Statistics  query 

The  Program  Statistics  query  (see  figure  13)  enables  the  user  to  graphically  display 
each  program  percentage.  To  start  the  query,  the  user  simply  presses  the  Program  push  button,  for 
example,  BEARING  RECORDS.  The  start  date,  stop  date,  propulsion  type,  and  exam  t3^e  input 
dialog  boxes  appear.  The  desired  period,  propulsion  type,  and  exam  t5q)e  are  entered  and  the  query 
conducts  the  search.  The  next  dialog  boxes  are  informative  in  nature  and  the  result  is  graphically 
displayed. 

TIP:  The  user  should  keep  the  propulsion  type,  exam  type  and 
exam  start  and  stop  dates  constant  to  get  a  homogenous  graphical 
display. 
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Figure  13.  Program  Statistics  query. 


The  RESET  GRAPH  push  button  has  been  discussed  earlier.  The  Program  Statistics  query  main 
menu  has  three  options.  The  three  options  are  View,  Print,  and  Quit.  The  View  option  has  fourteen 
choices  to  view.  These  choices  are  Bearing  Records,  BWFW,  DJWTT,  Electrical  Safety,  FOQM, 
Hearing  Conservation,  Legal  Records,  LOQM,  MGTESR,  OLV,  Operating  Logs,  QA,  and  Tagout. 
The  Print  option  has  fifteen  choices  to  print.  These  choices  are  the  same  as  the  View  option  with  the 
addition  of  printing  the  displayed  graph.  The  Quit  option  returns  the  user  to  the  main  menu. 

G.  OPPE/LOE  Monthly  Summary  of  Activity  query 

The  OPPE/LOE  Monthly  Summary  of  Activity  query  (see  figure  14)  enables  the  user 
to  obtain  information  for  input  to  the  monthly  reports  to  CINPACFLT  and  CNO  N86P.  The 
SUMMARY  QUERY  push  button  executes  the  query.  The  query  must  be  executed  prior  to 
reviewing  or  printing  the  report.  The  user  can  view  the  report  by  pressing  the  VIEW  REPORT. 
When  the  VIEW  REPORT  push  button  is  pressed,  a  dialog  box  appears  asking  if  the  user  has 
updated  the  Summary  Query.  The  user  can  print  the  report  by  pressing  the  PRINT  REPORT  push 
button.  Again  a  dialog  box  appears  asking  if  the  user  has  updated  the  Summary  Query.  The 
OPPE/LOE  Monthly  Summary  of  Activity  query  main  menu  has  only  one  option.  The  Quit  option 
returns  the  user  to  the  main  menu. 

H.  Evolutions  and  Drills  query 

The  Evolutions  and  Drills  query  (see  figure  15)  enables  the  user  to  graphically  display 
the  Fire  Drill  satisfactory  percentage.  To  start  the  query,  the  user  simply  presses  the  DRILL  SET 
PERCENTAGE  or  the  EVOLUTION  SET  PERCENTAGE  push  buttons.  The  start  date,  stop  date, 
propulsion  type,  and  exam  type  dialog  boxes  appear.  The  inputs  are  entered  and  the  query 
conducts  the  search.  The  next  dialog  boxes  are  informative  in  nature  and  the  result  is  graphically 
displayed.  To  compare  the  Evolution  and  Drills  of  different  propulsion  types,  the  user  must  be  sure 

that  he  or  she  is  consistent  with  the  start  and  stop  dates.  The  SHIPS  and  RESET  GRAPH  push 
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buttons  have  been  discussed  earlier.  The  Evolution  and  Drill  query  has  three  options.  The  three 
options  are  View,  Print  and  Quit.  The  View  option  has  six  reports  to  view.  The  six  reports  are 
Evolutions  Section  1,  Drills  Section  1,  Evolutions  Section  2,  Drills  Section  2,  Evolutions  Section  3, 
and  Drills  Section  3.  The  Print  option  has  seven  reports  to  print.  The  seven  reports  are  the  same  as 
the  View  choices  with  the  exception  of  the  graph  report.  The  Quit  option  returns  the  user  to  the  main 
menu. 

L  Ships  with  Special  Situations  query 

The  Ships  with  Special  Situations  query  (see  figure  16)  enables  the  user  to  obtain 
information  for  input  to  the  monthly  reports  to  CBSfCPACFLT  and  CNO  N86P .  The  INCOMPLETE 
QUERY,  UNSAT  QUERY,  and  OVERDUE  QUERY  push  buttons  execute  their  respective  queries. 
The  queries  must  be  executed  prior  to  reviewing  the  report  or  printing  the  report.  The  user  can  view 
the  report  by  pressing  the  VIEW  REPORT  push  button.  When  the  VIEW  REPORT  push  button  is 
pressed,  a  dialog  box  appears  asking  if  the  user  has  updated  the  three  queries.  The  user  can  print  the 
report  by  pressing  the  PRINT  REPORT  push  button.  Again  a  dialog  box  appears  asking  if  the  user 
has  updated  the  three  queries.  The  Ships  with  Special  Situations  query  main  menu  has  only  one 
option.  The  Quit  option  returns  the  user  to  the  main  menu. 

The  next  dialog  boxes  are  informative  in  nature  and  the  result  is  graphically  displayed.  To 
compare  the  OPPE  percentages,  the  user  must  ensure  that  he  or  she  is  consistent  with  the  start  date, 
stop  date,  and  propulsion  type.  The  RESET  GRAPH  push  button  has  been  discussed  earlier. 


Quit 
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Figure  14.  OPPE/LOE  Monthly  Summary  of  Activity  query. 
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Figure  15.  Evolutions  and  Drills  query. 


Figure  16.  Ships  with  Special  Situations  query. 


J.  Twelve  Month  OPPE  Cumulative  Trend  query 

The  Twelve  Month  OPPE  Cumulative  Trend  query  (see  figure  17)  enables  the  user 
to  graphically  display  the  OPPE  percentages  on  a  cumulative  annual  basis.  To  start  the  query,  the 
user  simply  presses  the  OPPE  Percentage  push  button.  The  start  date,  stop  date,  and  propulsion  type 
dialog  boxes  appear.  The  inputs  are  entered  and  the  query  conducts  the  search.  The  Twelve  Month 


OPPE  Cumulative  Trend  main  menu  has  two  choices.  The  two  choices  are  Print  and  Quit.  The  Print 
option  prints  the  displayed  graph  and  the  Quit  option  returns  the  user  to  the  main  menu. 


utalive  Trend] 


Figure  1 7.  Twelve  Month  OPPE  Cumulative  Trend  query. 
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